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ABSTRACT 


Shipboard fires have plagued mariners for centuries; they still 
cause significant damage and casualties each year. Improved fire 
prevention and control require a sound knowledge of the phenonema 
of fire. At the same time, a study of fires in enclosed pressure vessels 
has been undertaken by the Navy using FIRE-1, a large pressure 
vessel, to conduct full-scale experimental fires. A computer model is 
being developed to simulate the FIRE-1 tests. This three-dimensional 
finite difference model uses a cylindrical/spherical coordinate system 
and includes the effects of turbulence, surface and flame radiation, 
internal ventilation, global and local pressure corrections, strong 
buoyancy, and conjugate boundary conditions. Given a heat release 
rate, the model computes temperature, pressure, density and velocity 
fields for the entire vessel. This thesis presents the internal 
ventilation feature of the model and compares the numerical results to 
a nonventilated case. Additional features such as combustion and 
gaseous radiation are being incorporated to more accurately model 
real fires. When validated, this model will become a useful tool for 


evaluating fire prevention and control procedures and equipment. 
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I. INTRODUCTION 


A. BACKGROUND 

Fires aboard ships pose a great hazard to both personnel and 
materiel. Millions of dollars are spent annually on repairs of damage 
due to fires. Personnel casualties caused by fires cannot be measured 
in dollars and include both fatalities and severe injuries. Most person- 
nel casualties result from toxic gas or smoke inhalation rather than 
contact with the fire. The prevention and control of shipboard fires is 
one of the Navy's and Coast Guard's greatest challenges in future ship 
design. The computer simulation of a shipboard fire presented in this 
thesis provides a tool which may be used to reduce the damage from 
shipboard fires. 

In order to prevent fires and their associated casualties, it is nec- 
essary to better understand the basic phenomena of fire and smoke 
propagation within enclosed spaces. This requires knowledge of vari- 
ous physical phenomena: combustion, fluid mechanics, and heat and 
mass transfer. Extensive research using this basic knowledge is 
needed to predict the behavior of fires. With a better understanding of 
fires, ship designers and engineers can reduce the probability of igni- 
tion and propagation. New systems and procedures for fire control 
can be developed to reduce the losses should a fire start due to acci- 


dent, equipment failure, or hostile action. 


Shipboard fires have unique complexities not found in other fire 
scenarios. Access to a fire area is limited and spaces frequently con- 
tain electronic equipment, electrical power sources, machinery, 
combustibles, or toxic materials. Compartments are often closed, 
permitting pressure to build up in the space. Self-contained or recir- 
culating ventilation systems present unusual fire scenarios. All of 
these complications must be considered in the study of shipboard 
fires; the model developed in this thesis has incorporated two of these 
complexities: pressure build-up and recirculating ventilation. 

Shipboard fire research is currently being conducted by many 
organizations, including the Navy and the Coast Guard. Research 
includes both experimental work and computer modeling.  Experi- 
mental work is limited due to its high cost. Scale models of fires do 
not predict the behavior of full-scale fires because of the complexity of 
the fire phenomena. It thus becomes necessary to conduct fire 
research with full-scale testing. At the Naval Research Laboratory in 
Washington, D. C., the U.S. Navy built FIRE-1, a large pressure vessel 
designed to simulate fires aboard submarines and surface ships. This 
unique test facility offers the researcher an opportunity to study a fire 
with the pressure building up in the vessel. This models a fire in a 
submarine or in a closed compartment on a surface ship. 

Today's supercomputers, with their extremely rapid computa- 
tional speed and massive storage capability, offer a researcher the 
option of computer modeling of fires. The systems of partial differen- 


tial equations which govern the fire phenomena can now be solved 


numerically. The first models were simple, but current models are 
building on the older models, incorporating more phenomena and 
producing more accurate results. As each new submodel (such as a 
combustion or gas radiation model) is added, the quality of the 
numerical solutions improves. The models are being verified by com- 
parison with actual fires, such as those conducted in FIRE-1. 

When validated, computer models provide an excellent tool for 
the fire researcher. In experiments, each test must be repeated many 
times to verify the procedures, test facility, and data. The cost of 
these experiments becomes prohibitive. Experimental researchers 
must determine which test scenarios will produce the most meaning- 
ful results and how to design the data collection systems and proce- 
dures to monitor the most critical parameters. This is one aspect in 
which computer fire simulations become invaluable. By developing a 
code which accurately simulates a fire in FIRE-1, various fire scenar- 
ios can be modeled at a reasonable cost. The most interesting scenar- 
ios can then be investigated by experiments in FIRE-1. 

Computer models may also be used in modeling fires which can- 
not be tested in full scale due to the size and geometry limitations of 
FIRE-1. An entire area of a ship might be modeled and the progress 
of the fire within and between compartments could be investigated. 
With such simulations, the spread of fire could be analyzed, and new 
methods can be evaluated to prevent the spread of fire from compart- 
ment to compartment. Additionally, the efficacy of fire extinguishing 


systems can be evaluated by introducing models of these systems into 


the fire model. All of these future uses require a validated code and 
the use of a large computer. While the cost of a computer model test 
is significantly less than a full-scale test, it still requires extensive 
computer time. The current code running on an IBM 3033 uses 
approximately 1.5 CPU hours per second of fire time. A supercom- 
puter and vectorization could reduce this time by one or two orders of 
magnitude, but the number of model tests needed to fully validate the 


code still will require significant supercomputer resources. 


B. COMPUTER MODELING 

There are two basic procedure for modeling fires: field and zone 
modeling. Zone modeling involves dividing the fire area into control 
volumes or distinct regions [Ref. 1]. Each region contains a phenom- 
ena of particular interest, such as the base of the fire, fire plume, 
heating of the wall, ventilation inlet or outlet duct, etc. Mass and 
energy balances are conducted across the boundaries and interconnect 
all of the control volumes. This procedure provides information for 
the entire area, but the phenomena occurring within each control vol- 
ume are not always understood. 

Field modeling, also known as differential field equation model- 
ing, divides the compartment into finite volume elements. The con- 
servation equations in differential form are used to calculate the mass, 
momentum, energy, and smoke concentration at each time interval. 
The temperature, velocity, pressure, density, and smoke concentra- 
tion are known in each volume element. Models for additional physi- 


cal effects, such as turbulence, forced ventilation, and different 


geometry (such as equipment or decks) can be included in a field 
model to better simulate actual fires. Field modeling requires a large, 
fast computer with significantly more memory than zone modeling. 
The accuracy of the solution depends upon reducing the size of the 
control volumes; this increases the number of individual cells, the size 
of the problem, and the computing expense. 

Much fire research has been conducted to provide a solid founda- 
tion for this thesis. Work performed at the University of Notre Dame 
[Refs. 2, 3] included a two-dimensional finite difference field model of 
aircraft fires. It predicted the movement of hot gases and smoke as 
well as temperature and smoke concentration levels in the seating 
area of an aircraft cabin. Additional work by Nicolette, et al. [Ref. 4] 
included the development of a two-dimensional model of transient 
cooling by natural convection. This model utilized a fully transient 
semi-implicit upwind differencing scheme with a global pressure cor- 
rection. Experimental data showed good agreement with the numeri- 
cal predictions. 

Recent studies [Refs. 5 through 13] have developed numerical 
solutions for natural convection in three-dimensional rectangular 
enclosures using field modeling. They successfully solved nonlinear 
partial differential equations with a finite difference method. Models 
and studies involving three-dimensional cylindrical coordinate buoyant 
flows [Refs. 14 through 20] deal primarily with horizontal cylindrical 
annuli that have walls of different temperatures. Smutek, et al. [Ref. 


19] studied convection in a horizontal cylinder with differentially 


heated ends at low Rayleigh numbers. Yang, et al. [Ref. 20] conducted 
a similar numerical study for high Rayleigh numbers. 

The difficulty in calculating pressure has been addressed using 
methods that eliminate pressure from the governing equations. 
Stream function-vorticity methods [Refs. 14 through 19] have been 
used to solve natural convection problems in several geometries. The 
problems inherent in this method include instability at moderate to 
high Rayleigh numbers, difficulties in handling three-dimensional 
situations, and the lack of pressure information, which often is a 
parameter of interest. These problems are addressed by Yang, et al. 
[Ref. 20], who propose the use of primitive variables with an arbitrary 
orthogonal coordinate system. 

Ozoe, et al. [Ref. 21] used a vorticity vector potential formulation 
and alternating-direction-implicit finite difference method to compute 
velocity and temperature fields for three-dimensional natural convec- 
tion in a spherical annulus. 

Baum and Rehm [Refs. 22 through 25] have developed several 
field models for prediction of fires. Their models use time-dependent 
inviscid Boussinesq equations to simulate three-dimensional buoyant 
convection and smoke aerosol coagulation. Field models have also 
been used to model room fires [Ref. 26] and fires in a general three- 
dimensional enclosure [Ref. 27]. 

The numerical method developed by Yang, et al. [Ref. 20] and used 
in this thesis is based upon the use of primitive variable finite differ- 


ence discretization in generalized orthogonal coordinates. This 


method has the ability to handle complex geometries and the stability 


inherent in the primitive variable formulation. 


C. FIRE-1, THE TEST FACILITY 

To better understand the phenomena of fire inside a pressurized 
compartment, the Navy built an experimental pressure vessel for con- 
ducting test fires. This test facility is designated FIRE-1 and is 
located at the Naval Research Laboratory in Washington, D. C. A brief 
summary of FIRE-1 is contained here; a more detailed report is pro- 
vided by Alexander, et al. [Ref. 28]. Figure 1.1 shows the basic layout of 
FIRE-1. It is a 46.6-foot-long cylindrical vessel with hemispherical 
ends, capable of pressures up to 89.7 psi at 450 F. The radius of both 
the cylinder and the end caps is 9.6 feet and the total enclosed volume 
Emu ООО спБїс їее{. The vessel is constructed of 3/8 inch ASTM 285 
Grade C steel and contains rupture discs at each end to prevent over- 
pressurization. 

Instrumentation monitors various fire parameters, including 
pressures, temperatures, and smoke concentrations. Pressure trans- 
ducers and bourdon tube gauges are located at the north and south 
ends of the vessel. Thermocouples and radiometers are installed as 
shown in Fig. 1.2. An array of ten thermocouples is located at each 
end of the tank. Each thermocouple is a chrome alumel wire of 0.2 
mm diameter having ceramic insulation enclosed in 1 mm diameter 
Type 304 stainless steel jackets. Thermocouples are also located on 


the chamber wall to measure the inside and outside wall temperatures. 
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Figure 1-1. Drawing of the FIRE-1 Test Vessel 
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Figure 1-2. Side View of FIRE-1 With Sensor Locations 


Additional thermocouples and radiometers are available for temporary 
installation at various locations as required for different tests. Smoke 
obscuration can be measured three ways: visual obscuration with video 
cameras, particle analysis, and obscuration with laser detectors. The 
fuel burn rate is determined with a round tapered-edge fire pan with 
various cross-sectional areas, provided with a constant-level fuel sup- 
ply system. The operation and calibration is described by Alexander, 
et. al. [Ref 28]. To date, the burn rate data has not been accurate, so 
further experimentation is necessary to provide fuel burn rate. As dis- 
cussed later, the lack of accurate burn rate data precludes complete 
verification of the computer code. In the interim, several methods of 
deducing burn rate have been developed for use in the computer 
model. 

Three features permit modification of the tests to more accurately 
model the submarine or ship compartment being tested. First, there 
are two removable decks, one installed in the mid plane of the vessel 
and the other slightly over three feet above the bottom. Grated or 
solid deck plates can be installed to test various shipboard configura- 
tions. The decks have been incorporated in the computer model but 
have not yet been tested and verified. Second, a nitrogen pressuriza- 
tion system extinguishes the fire and can be used to evaluate its per- 
formance in an actual fire situation. Ten seconds after energizing the 
nitrogen system, the pressure in the vessel rises to two atmospheres 
and extinguishes the fire by reducing the partial pressure of oxygen to 


less than 10.5 percent. Third, there are two ventilation fans which 
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can be installed to simulate the effects of internal ventilation. The 
ventilation system has been included in the computer model and is 


the subject of verification in Chapter 4 of this thesis. 


D. FEATURES OF THE PROGRAM 

The computer model was developed as a low-cost alternative to 
predict the spread of fire and smoke in enclosed spaces on naval ves- 
sels. Together with the FIRE-1 test facility, which can be used for 
validation of the computer code, it can be used to evaluate the effec- 
tiveness of damage control systems and new ship designs in the pre- 
vention and control of fires. 

The computer model is a joint effort of the University of Notre 
Dame and the Naval Postgraduate School. The original work by Nies 
[Ref. 29] involved a model of a rectangular volume similar to FIRE-1. 
The model was a three-dimensional, finite difference model employ- 
ing primitive variables. It included a global pressure correction, sur- 
face radiation, turbulence, and simple conduction at the walls. The 
unreliability of the burn rate data from FIRE-1 experiments caused a 
problem in validation of the computer model. To overcome this 
problem, a scheme for developing the burn rate based on the experi- 
mental pressure was developed; the procedure is describe by Nies 
[Ref. 29:pp. 61-63]. 

Raycraft [Ref. 30] developed a more sophisticated model which 
uses a spherical/cylindrical coordinate system to more accurately 
model FIRE-1. It also includes a more detailed formulation of surface 


radiation, global pressure correction, turbulence, and conduction. The 
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problem with burn rate data persisted, and three trials were run to 
attempt to better simulate the burn rate. The conclusions were: 


1. The pressure tracking case, Trial 1, provided a numerically gen- 
erated heat release curve from other available sources. The pres- 
sure was forced to follow the experimental curve, causing large 
oscillations in the heat release and temperature data. 


2. Trial 2 used a third-order polynomial fit of the experimental data 
provided by NRL. The pressure and temperature did not oscillate 
greatly, but the values obtained were very high. This indicated 
that experimental burn rate data was also too high. It was known 
at the onset that the heat release rate data could be off by some 
unknown scaling factor. 


3. Of the three test cases examined, Trial 3 was a better repre- 
sentation of the fire in FIRE-1. This case combined the heat 
release rate levels obtained from Trial 1 with the third-order 
polynomial fit variation from Trial 2. The results were a realistic 
burn rate curve to use as input into the computer code. [Ref. 30] 
The present code includes internal forced ventilation into the 

model. The effects of two fans blowing into the end caps of the vessel 
is investigated in this thesis using the burn rate curve discussed above 
in Conclusion 3. The results are compared with existing data of the 


fire model without ventilation. 


E. THESIS OUTLINE 

This thesis describes the numerical model, its derivation, and 
application. In Chapter 2, the governing equations, initial and bound- 
ary conditions, and the various submodels employed are discussed. 
Chapter 3 presents the derivation of the finite difference equations. 
The use of the control volume method in the spherical/cylindrical 
geometry is explained. The conservation equations are presented and 


integrated, finite difference equations are developed, and the pressure 
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correction procedures are described. Chapter 4 presents the experi- 
mental data for the internal ventilation model and compares it with 
the nonventilated case. The conclusions and recommendations for 
future work are presented in Chapter 5. The appendix contains the 


code for the model. 
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II. NUMERICAL MODEL 


A. GOVERNING EQUATIONS 
1. Introduction 
The governing differential equations used in the computer 
model are described in this section. They are initially presented for a 
Cartesian system and then transformed into a generalized curvilinear 
coordinate system using standard tensor notation. Several assump- 
tions are made in the development of the governing equations. The 
fire is modeled as an unsteady volumetric heat source that is a third 
order polynomial in time, which resulted from previous work [Ref. 30]. 
The effects of combustion have not yet been incorporated into the 
code. Density varies in accordance with the perfect gas law. 
Nies [Ref. 29] developed a computer code to model a fire in 
FIRE-1 using Cartesian coordinates as an initial approximation. Ray- 
craft (Ref. 30] describes the code for the current spherical/cylindrical 
geometry which is summarized below. 
2. General Equations 
The governing equations include: conservation of mass (con- 
tinuity), conservation of momentum, conservation of energy, and the 
equations of state. These are presented below in Cartesian coordi- 


nates and in standard tensor notations. The continuity equation is: 


p. t (pu p. 0 (298) 
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The momentum equation is given as: 


(ри) (ри а,)у„=-Р„—рС,+ (94) 


(2.2) 
and the energy equation is: 
τν Ὁ OB CS ', (2.3) 
The stress tensor is given as: 
бұт EE E δα κ) (2.4) 


with j being the Kronecker delta, which equals the value of 1 when 


i = j and equals the value of O when i *ј. The dissipation function is: 
ЕЕ: 2 
o -2(uij8, * [u, (1 δ, η] - 5), (2.5) 
The equations of state are given as: 


P=pRT (2.6) 


p= Ciel (2.7) 


Since the computer model of FIRE-1 is in a combination of spherical 
and cylindrical coordinates, these equations must be transformed into 


a general curvilinear coordinate system (61, 62, 69). Yang, et. al. [Ref. 


20] outlines this process, using the rules established by Eringen [Ref. 
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31]. The generalized orthogonal coordinates are transformed as 


follows: 


i 


X,0 (2.8) 


with a scale factor, hj, for curvilinear coordinates given as: 


ӘХ ү (ӘХ, 
ΠΕ (2.9) 


The scale factor is a component, therefore the summation rule does 
not apply to the subscript of hj. Reference 31 gives the scale factors 


in cylindrical coordinates as: 


1 (2.10) 

Do (2.11) 

ae (2.12) 

In spherical coordinates, the scale factors are: 

h,=rsin@=@ sin® (2.13) 

)2.14( ر 

2 
сы (2.15) 
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The covariant and contravariant metric tensors of orthogonal 


coordinates are given as: 


B PN g, = OF р, Б, 





(25916) 
g! ü Š; 
DIT [20597 
The vector tangent to the uj; curve at P is given as: 
Е, uU 
Dome тен 
E (2.18) 
and the velocity vector is given as: 
es μι: 
h, (2.19) 


In generalized orthogonal coordinates [Ref. 20], the continu- 


ity equation is: 


1 ο | u 
E [эшче 
NI 90 h, (2.20) 
and the energy equation becomes: 
1 Ὁ uw 
Шеге; VÉ a0 (VE р Сы м m 
(2.2%) 
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1 О e m 
Jew (ve ]'® 
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with the momentum equation given as: 


| p | 
ou), + Se (vee) = Gt + ec! + 











j 
1 z 8 =] 1 oh, inn) с!) 
+ —= — - ---- - - + 
vg a V hj; DS | 220 
oh, j 
Б С (ρα -σι) 
The stress tensor is: 
h. j h i 
J О 11 i О 11 
σπα ow E Е oe πὶ 
σι” µαι (2.23) 
ij да, u" 


оғын ә” (МЕ n.) 


3 
= 


and the dissipation function is: 


_„|(м ү “ΤΙ 
° [EJ] s [G о-ы] 
J J 
| 2 (2.24) 
EB u 
ΠΝ 


The only difference between these equations and the cartesian coor- 





dinate equations is the additional terms in the momentum equation 


for Coriolis and centrifugal forces. In the energy equation, several 


terms have been lumped together in the source term: 
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1 д ы! 
Seay D+ P — — mFS 
í = H το 30! νε ы hs (2.25) 
The heat source term, Shs, is nonzero only in the fire, since gas radia- 
tion effects have yet to be incorporated into the computer model. 
Furthermore, since the present study deals with turbulent flow, the 
conductivity, Kerf, and dynamic viscosity, eff, are the effective quanti- 


ties which include both the laminar and turbulent contributions. 


B. INITIAL AND BOUNDARY CONDITIONS 
In order to solve the governing equations, both initial and bound- 
ary conditions must be applied to the model. 
1. Initial Conditions 
The initial conditions of the model are the same as the 
conditions immediately prior to the ignition of the fire in FIRE-1. 
The air within the vessel is assumed to be totally at rest, so the entire 
velocity field is set equal to zero. The forced ventilation does not 
begin until the fire starts, so that the velocity field due to the forced 
ventilation builds as the fire starts to burn. The temperature of the 
field is uniform and equal to the ambient temperature, which corre- 
sponds to a nondimensional temperature of 1.0. Pressure and density 
distributions are due to the static equilibrium distribution inside the 
tank. 
2. Boundary Conditions 
The pressure vessel forms a solid wall around the entire area, 
so all velocities on the wall are zero; this satisfies the no-slip condi- 


tion. Since there is no mass flux through the wall, all velocities 
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normal to the wall are set equal to zero. Temperatures on the inside 
of the wall are equal to the temperature of the fluid immediately adja- 
cent to the wall eliminating temperature discontinuities. The follow- 


ing equations describe these boundary conditions. 


ui = 0 (2.26) 


Tsurf 7 Tfluid (25972) 


Continuity of heat flux must be met at the walls. 


oT 9Т, 
ши on — κ on (2.28) 





with n representing the normal direction towards the center of the 
vessel and qr representing the thermal radiation energy. There is 
heat conduction through the walls and heat convection from the exte- 
rior walls to the environment at the ambient temperature. 

Due to the cylindrical and spherical geometry, there is a sin- 
gularity at a radius of zero which requires special treatment. Several 
different methods of correcting this problem are discussed by Yang, et 
al. [Ref. 20:pp. 167-168]. The method chosen for this model involves 
applying continuity to two consecutive radial control volumes placed in 
the vicinity of radius equal to zero. Of all the methods investigated, 
this was found to give the best representation of the flow and 


temperature flow fields. 
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The boundary conditions for the control volumes adjacent to 


the ventilation control volumes are discussed in Chapter 3. 


C. PHYSICAL MODELS 
1. Turbulence Model 

An algebraic model is used to predict the average values of 
the dependent variables. More complicated models could be used, but 
the increase in computing time does not warrant their use. Nee and 
Liu [Ref. 32] developed a model that obtains the effective viscosity, Leff, 
in recirculating buoyant flows with large variations in turbulence levels. 
The equation, after being transformed to the generalized orthogonal 


coordinate system, is: 





(2.29) 





where Pr; is the turbulent Prandtl Number and the Richardson Num- 


ber, Ri, is given as: 


ο. 








(3) a] - [G8 e] [G2]. 7?" 


with ñ a unit vector in the direction opposite to gravity and 1/H the 


nondimensional mixing length parameter: 


Ex) а) 
EE Lj h g 


> ay Y (x! du! ) 
(у ы h; ag а, 3g! ag | 


where K is an adjustable constant. The effective conductivity is 


| 


(270) 








defined by the following equation: 





επ Επ Pr Ho (2.32) 


2. Conduction Model 
As the fire progresses, the heat energy transferred to the 
environment becomes increasingly important. This requires a model 
for the heat conduction through the vessel walls. The energy transfer 
is treated as unsteady, one-dimensional heat conduction through the 
wall and convection with a constant heat transfer coefficient at the 


wall exterior. The energy equation in this case is: 
(OF =й (VE R) Te 
VE 99 (2.33) 
with ps Cps being the heat capacitance of the wall and ks being the 
conductivity of the wall. 
3. Radiation Model 
The radiation model is described in detail by Raycraft [Ref. 


30:pp. 22-44] but is summarized below. The radiation model used is 


based on three assumptions. First, the model only considers surface 


22 


radiation; this means that the gas and smoke inside the tank is con- 
sidered to be transparent. Second, all surfaces are modeled as grey 
surfaces, with radiation diffusely distributed. Third, the tank walls and 
the flame of the fire are treated as surfaces. The radiation model is 
based on the net radiosity model discussed by Sparrow and Cess [Ref. 


33]. The net rate of heat loss per unit area is given as: 
Qi «X 4 
A = XG, oT (2.34) 


with the following definitions: 


е, 
буте (837 #3) (2.35) 
Е 
Tata (2.36) 
δι - (1 - ει) Б, 
^g е, (2.37) 


Fai-aj is the view factor for the radiation emitted by the surface i and 


incident upon surface j. Generally, it is given as 


1 | соѕ В, соѕ В, ад, ад, 
Е = —— a αι а 
А-А A, А дї 
А j 


ЕСЕ) 


The view factor calculations are given in detail by Raycraft [Ref. 30:pp. 
29 through 44]. 
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4. Internal Ventilation Model 
The internal ventilation model allows the user to set up 
forced internal ventilation in the field. This would normally represent 
outlets of the ship’s ventilation system, but could also model ventila- 
tion due to damage (i.e., ruptured air lines or ventilation ducts) or 
damage control smoke removal equipment. The internal ventilation 


model defines a velocity in one or more control volumes. 


24 


III. FINITE DIFFERENCE EQUATIONS AND CALCULATIONS 


A. INTRODUCTION 

The numerical solution for the computer model has space and 
time as the independent variables, and velocity (in three directions), 
pressure, temperature, and density as the dependent variables. With 
six unknown dependent variables, six equations are needed to obtain a 
solution. The conservation of mass equation (Eqn. 2.20), conservation 
of energy equation (Eqn. 2.21), conservation of momentum equations 
(Eqn. 2.22), and the equation of state (Eqn. 2.6) are used. These 
equations are discretized in a method similar to that described by 
Doria [Ref. 34], based on the general discretization concept presented 
by Patankar [Ref. 35]. Doria divided the domain into separate control 
volumes and wrote conservation equations for each cell in an integral 
form. These integral equations became a set of finite difference equa- 
tions which could be solved to provide a solution. 

In the flow field, each cell is treated as a unit, with one value of 
each property reigning throughout the cell. The center of the cell 
determines the value of temperature, pressure and density. The 
velocity grids are staggered one-half cell away from the center. 
Patankar [Ref. 35:pp. 115-120] describes two problems which arise 
when the velocity cells are coincident with the basic cells. First, the 
velocity at the staggered cell center is calculated as a function of the 


pressure differential between the two adjacent nonstaggered cells. If 


29 


the cells were not staggered, the velocity would be calculated based on 
the pressures of adjacent cells, which are twice as far away as in the 
staggered cell case. Second, staggered cells preclude unrealistic 
oscillating solutions. 

Employment of primitive variables presents a problem with the 
coupling of the pressure term in different equations. Others have used 
the stream function to eliminate this coupling [Refs. 14-19] but in the 
present case, with the desire to determine the pressure, this method 
is inappropriate for the reasons cited in Chapter 1. In the computer 
code, an iterative procedure is used to estimate pressure. To ensure 
that the results are physically realistic, a numerical method must not 
violate the conservation properties. Patankar [Ref. 35:pp.120-126] 
and Doria [Ref. 34:pp.26-32] describe the method of satisfying 
conservation by correcting the estimated pressure to ensure that mass 
is conserved at every cell. In addition to the local pressure correction, 
a global pressure correction is included to account for the total energy 
change in the system, as described by Nicolette, et al. [Ref. 4]. 

In the finite difference method, differential elements are replaced 
by finite quantities in the integral form of the equations. Many 
methodologies have been developed for dealing with the differencing 
techniques and each has inherent features and problems. The QUICK 
methodology (Quadratic Upstream Interpolation for Convective Kine- 
matics) developed by Leonard [Ref. 36] is used here for the convective 
terms. QUICK uses locally two-dimensional quadratic interpolation 


functions for estimating control volume face values and gradients of 
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transported variables. It is third-order accurate and permits practical 
grid sizes. Yang [Ref. 13] employed QUICK in the coupled momentum, 
energy, and pressure equation solutions for three-dimensional flow in 


tilted rectangular enclosures. 


B. CONTROL VOLUME 

When defining the problem to be solved numerically, the flow 
field is divided up into finite elements, or cells that together make up 
the entire field. At the center of each cell is a grid point that is 
defined as the governing point of the cell. In discussing the grid 
points, the following nomenclature is used. The grid of interest is 
called P (I, J, K), with adjacent grids being defined as: East (I+1l, J, 
K), West (I-1, J, K), North (I, J+1, K), South (I, J-1, K), Front (I, J, 
K+1), and Back (J, J, K-1). The boundaries of the cell with grid point 
P are designated by lower case letters, or e, w, n, s, f, and b. Figures 
3.1 and 3.2 shows typical cells in cylindrical and spherical coordinate 
systems. 

As previously discussed, velocities are defined in a staggered grid 
system. To illustrate this, Figure 3.3 shows a two-dimensional cell; 
Figure 3.4 shows the location of the staggered velocities around the 
grid. The velocity, uj, for the basic cell is located on the west face; 
uj is on the south face; and uj, (not shown) is on the back face. In all 
cases, the staggered cell system is offset one-half cell from the pri- 


mary cell system. 
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Figure 3-1. Basic Cylindrical Cell 
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Figure 3-2. Basic Spherical Cell 
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Figure 3-3. Two-Dimensional Basic Cell 


ка сы 


Figure 3-4. Two-Dimensional Staggered Cell 


C. INTEGRATION OF CONSERVATION EQUATIONS 
To discretize the conservation equations, it is first necessary to 
put them into an integral form by integrating over the volume of a cell. 


The continuity equation becomes: 


{Sn n,n, de de de 





f [5 (on; 5.) «Ss (out h, b) 


(pu?h, h,) de de' de O (ЕРІ! 





29” 
and the energy equation is: 


ШЕСІ) ο. 5 9 1 
| 377 n n, аө dé + | | (P Com u ΠΠ 











9 1 2 3 
ο οτε, μη u^ T h, h;) | de dede? - 
9 ] 2 
E hy h,) +S (@ hh) +5 = (a h, h 2) |46 de” de + 
f Sh, h, h, de' de" de (3.2) 
with: 
Е ES (3.3) 
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The momentum equations are: 


9 h,h,h, j Ш 5 
ar оог aps, || 2 S [p u! u!| de! ae? qe 
[3c (0 99 b, h, h, de' de ae S اا‎ h. Jp uta! 


h,h,h 
- f- 2 [p a! de dé + fpG,h,h,h,d@ de de 
h,h,h 
+ 3 st "iss a de do 
a Ἡ, Ἡ, 


h, h, h, oh, ju ο... 





hh h oh | 
ІІ ee EI uu! o!) ae аө” аө” (3.4) 
| h. h 00 Ρ 


D. CONTINUITY EQUATION 

Once the governing equations have been integrated, the differen- 
tial elements are replaced with finite quantities. Three separate 
differencing methods are used in the computer model: forward dif- 
ferencing for time, central differencing for the diffusion terms, and 
QUICK for the convection terms. 

In forward differencing, the future value of a given parameter is 
found by adding its present value to the net change over a finite time. 
This change is described by the rate of change (slope) multiplied by 


the time step. For example, 
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ΡΛ (3.5) 


with p"-! representing the present value of density, m is the rate of 
change, p? is the future value, and At is the time step. Substituting 


this into the continuity equation (3.1) results in: 


ορ p? _ ue | 7 А а p" = pu 
к ЫМ ж hh, h, A0 A8 A0 ———5, — AV — (3.6) 


By evaluating the integral, tbe continuity equation becomes: 


(p^ - p^" ) S +[pu'h, h, de” do] -[pu'h, h, de de | 


+ [pu h, h, dê' dê*] - [pu?h, h, de’ de*] + (3.7) 
+ [pu®h,h, de’ de’| - [p u*h, h, de’ de*| =0 
f b 


The mass flux rate, G, is evaluated at each of the six cell faces: 


(h, A0 ),,, * p, (h, A0 ), 
ο eu. (p, Ch, A0 ),4 pz (h, A0 ),) Ρε : ) (3.8) 
((h, Ae’ ),,,+(h, Ae |) 


l 1 (р(ћ, 49 ),, * Ps, (MATOS) 
G,-(pu «| ((h, Ae’), +(h, ae’), ) (3.9) 


p (h, A8?) +py (h, Ae ) 
A -- 


ο τα τας | ((һ,46 ,4%(Һ,46),) 


33 


(p,(h, 46”), ,+p,, (h, д0? ), ) 
С. =, (рал) = Е c CEN (3.11) 
((h, 4€), * (h; A0),) 
p,(h, A0 ),,, * p, (h, A0") 
μπα (3.12) 
((h, ^05 ),,, - ( hj A0? ), ) 
0, (h, Ad”), . +p, (h, Ad ) 
G = [su Ul Е P 3 - k-1 B — » (3.13) 
((h, 46°), ,+(h, 40°), ) 
with the area of the faces given as: 
A..,7(h, A0 h, A9 )., (3.14) 
A,,7(h, A0 h, A0 ),, (3.15) 
1 2 
Ант sl lorem Jon (3.16) 
In the finite difference format, the continuity equation becomes: 
(p? - pP?!) AV 
—  —*G.-G,*G,-G, tG,- G, 75, (3.17) 


with Smp defined as the mass source term. In an analytical solution, 
this mass source term is zero, but in numerical solutions it is a finite 
nonzero term. Through iteration, the numerical solution converges 


and the mass source term approaches zero. Instead of converging to 
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zero, the source term is set equal to zero when it is less than or equal 


to 10-70, 


E. ENERGY EQUATION 


The integrated energy equation is: 


[peu T -(o C. T) ] 474 6 (C, T). A. - 6, (C т)„А„+ 


EC G (Cul). A. +G (C u T) A ,—- G, (C A 


=k, A, = ERN — EA — Σχ 
h, 26 h, 20 h, 96 


€ w n 


oa c n E 
h, 30 Ἡς 90 h, 90 (3.18) 


f b 











where all k’s represent effective values. Sr is the source term and 
includes dissipation, radiation, pressure work, and all internal heat 


sources. J is the total heat flux resulting from convection and 


conduction. 
1 oT 
J е.м ( С т ul T) = k. : 
| p Vp f н, 30 | (ЭЭ) 
2 OT 
J. = ( С тп u T) n К. : 
| 9€, Oh a (3.20) 


n,s 
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3 OT 
Jis =| P Cm wT) - ka τρ | (3.21) 


Б 


These equations are the 01, 02, and 0? components of the total heat 
flux. The subscripts refer to the face to which they correspond. The 
term (p Cpm u! T) causes problems since u is evaluated at the cell sur- 
face, but all other values are evaluated at the cell center. Because of 
this, when using these equations, the fluxes must be expressed in 
terms of Cpm, P, and T at the point P and its neighbors. Substituting 
these equations into the integrated energy equation, the finite differ- 


ence energy equation is: 


| (p Com T) Е (р Con TY" | ὃς ΠΤ. Ее SUE 


-JLAQ-J.A, -J; A,- JU A, «S AV (3.22) 


Of the many finite differencing methods, the QUICK scheme is 
used with the convective terms because it accurately predicts the 
dependent variable values at the control volume surfaces with stable 
properties. QUICK has the relative accuracy of the central differenc- 
ing scheme coupled with the stability of an upwind scheme. It uses a 
parabolic polynomial interpolation to fit the control volume at three 
adjacent nodes. Yang [Ref.13:pp. 77-89] describes QUICK in one, two, 
and three dimensions. Raycraft [Ref. 30:pp. 63-74] developed the 


finite difference energy equations using the QUICK scheme. Since 
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this method is used in the computer model, the derivation is repeated 


here. 


The quadratic interpolation for a nonuniform grid is given as: 


sa 


| 
8 


(P e ШІ) - ue: ( 5 


curv, | (3.23) 
τμ κ эз 
pm - w pm .w D 8 w 


υπο ο shows the one-dimensional scheme. The upstream 


weighted curvature terms CURV are: 





im (eT. Teer. 
СОКУ. = Ay c ات‎ if G.> 0 
а t ұлан 
Е e E Е зс <0 (3.25) 
AN x e АХ, 








lee : 2 
ο 5" j if G. < O (3:26) 


Of 





Figure 3-5. One-Dimensional Quadratic Interpolation Scheme 


38 


with 


206. = 06 ( АХ, a 547) 


ΑΟ (AX, + AX, .) 


АХ. = 0S (AKE АХ.) (3:27) 


AX =ОШ ΙΑΝ; 


In generalized orthogonal coordinates, the equations becomes: 


(p са. T) = Ge Com < үе 3 CURVN, ] (3.28) 


Дк z i 


eee Tt) - с.с... т - = CURVN, | (3.29) 


with 


CURVN, = 


(h, A8 ); ( T, - T Шаны 
Е rs το k DN if G. > O 
1 i 


(hı A). (h. A0), 


б ло). TaT т 
να Ποσο 5.30) 
(ОСАО ο πο}. 


(h, A@),,, 
ieee T. = TT 
CURVN, = —— — — - —— ο 
із А) ΠΠ, 
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— 


152 
(Һ, А0 )% m т. T,-T, 


—- —— | ifG,<0 (3.31) 
(h, A9), ((h, A80). (h A0), 


and 
(h, 49€) -0.5 [ (nue) + (hao) | 
(h,A0) -0.5 | (юле) + (h, A0") - 
(h, Ae) =0.5 ΚΟΠ * (hA9)) zi (3.32) 
(h, a9) -0.5 (1,46) Ж. (hae) | 


The conventional finite difference form of Eqn. 3.22 for a one- 


dimension system is: 


y V 
ἕνα, πο Sees s A - 


(3.33) 
- AQT,* AST, - A,T, * S(h, A0) 


Using a semi-implicit tri-diagonal solution procedure, both Teg and 


Tww are included in the source term. The remaining coefficients are: 


БЕ +3 |С, |) 








k. 
DE = — = νι + C r С, + G. |) + h Ag (3.34) 
Coa.w (9 ο) К 
Ay ===> те ы Чол ЧЕ (3.35) 


h A9 


1 
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k, +k, 


E 12555) 
h48 


9 
An = 16 (Gu Coma — Ce Come) +3 (Gul Coma +1Gel) + 


ЕСЕ 26 с. (|с.|-с,)Т.,-Сс.,.(|с,|ьс.)Т,, (8.37) 


The three-dimensional QUICK algorithm uses locally quadratic 
interpolation of temperature through each control volume. Figure 3.6 
shows the calculation cell for a three-dimensional uniform rectangular 
grid. The cylindrical/spherical grid system used in the computer 
model is more complex, although conceptually the same. Yang [Ref. 
13] discusses the evaluation of the curvilinear and temperature terms. 
Basically, curvature terms are calculated for each of the temperatures 
and substituted for the convective heat flux terms. Heat flux is calcu- 
lated and substituted into Eqn. 3.22. 


After separation of variables, the energy equation becomes: 


T n-1] AV T T T 
[As +(P Comp) |] r T; = ArTy+Ay TwtAnTy 
(3.38) 
+A; T. +A, π --ᾱ- T. oe 
with the additional source term, 
T n-1 AV 
Su=(p C pm p T) ΛΕ τΆεει + Awwr + А кмк 
(3.39) 


т A scp и A rer M ABBR 
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E 


ЕЕ 





Figure 3-6. Calculation Cell for a Uniform Rectangular Grid 
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СМ = б„ * чї. * (һ„лё?)_ (Һ,46). 
see u (h,48) 
CE-G,*ul, * (лө?) (һ„лө*) (3.40) 
CW =G,*u; *(h,Ae) (һд). 
a өті - C» (1467). 
CB -G,*u * (вле!) (167). 


Thermal conductivity is: 


S 1 | 1 
—— + — rUÚÁ a —————V————M 
[ος (h, A6) Е (h, ao’) (3.41) 
(n, ^8) +(h, Ao’) 
j 11] 
1 
DIU T же 
k,*(h, A9) k,, *(h, A”) 
j 1-1 
(һ, ле) +(һ, ΔΘ). 
И 1 


NE (ae ` 
Е (h. лө) Lo i (h, ^8) 
i E 


1 2 
(a, ae) +(h, a6) 
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1 
т 
k,*(h,49) — k,*(n 49). 


1 2 
(h A0 ) +(һ, А6 ο 


1 
mel. a ECC NE 
πα ΝΗΣΟΥ 
+1 


3 3 
(h, Ae ), +(h, A@ ) 


1 
1 1 


----. s 
k (mae) kya" (hy) ` 


(h, A8) +(h, Ae”) " 


h, A0 * h, A0 
CONDN1 = k, * | —— z~ 


h, A@ 


h. A0 * h, AG 
CONDS12k,*|—————— 


h, A6 


h, A0 *h, A6 
CONDE 1 = k, * | ————— — 


h, A! (3,42! 


h, AG *h, AG 
CONDW1 =k, *| ——,>—— 


h, A0 


3: 


compri =x | 


h, A0 *h, A6 
һ, 46: 


f 


cONDB = "| 


h, A0 * h, A6 
h, A0 


In equations (3.41) and (3.42), all k’s are the effective values. 


h, A0. 
о ( ! ). 


16 (лө) 


_ (h, 46) 
iron _ |cE| - cE 1 с 


16 (һ.лө) 
i+] 


h, A6 
ον су (s ae), 
б {ы АӨ) | 
i= 


оу ою (6.46) 
CWM = =“ СӨ” 1 w 


(в, 19) 


һ, 46”) 
ο ΜΕΙΟΝ ( 2 п 


16 (n, 46) 
j 


_ (һ, 4%) 
dii. е CN 2 3 


—  -n- πη 
16 (h, a6) ai 
j+1 
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3 
orp = 11+ & (ы. 49) 
16 (вул) 
t (h, A) 
CFM = 16 (h, Ae’) 
S k+1 
3 
cpp - B+ OB μεν δ) 
8 “(ашу 
3 
CoN meues nem 
16 (нуле) 
.  -CEM *(h, 46) 
EA 
т Ор 
ИЕСІ 
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Кк -CNM * (h, 40) 
NN (h, A6" ) 


- CSP * (h, ο 


ο πι T (3.44) 

SS 2 Б 

(nas). 
3 

Кк - CFM * (h, 40 ) 

i (h, A0?) 

ff 
3 

E - CBP * (h, A0 ) 

ΒΒ 3 

h. A0 
(в, 467). 

A.. =A *T ο 

EER EE i42 Ρα ο 
A. =A *T *C 

WWR WW i-2 рт, 2 
A. =A\ *T .*C 

NNR NN Η2 pm ,,5 

T 

Dc Е i С, я (3.45) 
Α.-α «τ. ο 

FFR FF k+2 pies 
ο τη и ý — m 


The intermediate coefficients are : 
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A, = ουσ” ο, БЕН ШЕ (had) 
(һ, 40) 
+ CWM (nae) лө) 
(h, A0') 
А,-05 "СУ А oy Ee ‘+t ae) - 
(в, А6) 
CEE (α Δ). Ad). 


А у= -0.5 * CN + CNP + CNM * 


| (h, Ae). 


| (ts Ae). | 


° 


(h, Ae) 


(h, 46) | 


+ CSM * 


А. = 0.5 У СЕБЕСИ КЕЕ Je 


+ CNP * 
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(n, ^6). 


(h, 40) 
(n, 46) 


(һ,46) 
(һ, 46) 


- 


(3.46) 


(3.47) 


(3.48) 


(3.49) 


(h, A") 


ee ο ο СЕРЕ Che oce + 
(в, 46) 
ff 


(h, лө”) (3.50) 
+ CBM * ——— 
(h, A0°) 
f 
(h, Ae?) 
A,, = 0.5 * CB + CBM + CBP *|1+——" | + 
(h, Ae’) 
bb 
(h, лө") (3-91) 
+ CFP * (nad) ae) 
b 


The coefficients are: 
ДЕС. TFT CONDE! 
pm 
τ. CONDW 1 


CE + CONDNI 5; 


ΝΙ pm .N 
T 
по 08 «ΟΡΘΗ 


АТ= А. * С. + ΟΟΝΡΕΙ 


E FI p 


А =А_*с + CONDB 1 


B BI pm .B 


Ap! is the sum of all the values of A. 
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AL = Conp* (AL, +A, +A, +A, tA +A,+ A, +A, + 
T τ T T 
+ Any tag tAr ts] + CONDE! СОМЕН 


+ CONDN2 + CONDS1 + CONDF1 + CONDB1 


F. MOMENTUM EQUATION 


The integrated momentum equation is given as: 


(рц!) V- MP, A,-M, A,* M, A,- M, A, 
(3.54) 
13 13 i 

EMA MMT SS 


with Aj, the area of the staggered cell given by Eqns. 3.14 through 
3.16. M4 represents the total momentum flux in the 09 direction due 
to convection and diffusion for the u! velocity component. M is evalu- 


ated at the face noted and is given by: 


Μ΄ -(ριαι -σ)) (3.55) 


The source term includes body force, pressure gradient, centrifugal, 
and Coriolis forces and for u! is : 
S' = —P. A. + P.A + р C M; (EAE 


(3.56) 
- M, (A,- AL) 4 (M$ - M, ) CA, — A,) 


Yang et al. [Ref. 20: pp. 11-13] describes the concept of a "stress- 


flex formulation" as it applies to a curvilinear coordinate system. 


o0 


Stresses are calculated from previous information and the source is 


given in the current iteration. The momentum flux is: 


πμ... cc) 


with 
J H 
on = 1 
кз 9) 
00 
ij j 
M = pu'u' - ὃ, 


The u! momentum equation becomes: 


^ 11 ^ 11 ^ 12 ^ 12 
(ри), + M. A.- M, A, + M, À, - M, A,+ 
A 13 A 13 A 
+ АЕ = „да = 5 


Š 2E (6,- 0.) A.t (6,- σι) Au- 
ΤΑΝ, -οἳ) Α,- 
= (@ 08) a+ (8-08). 


The momentum equation for 0! is given as: 


ol 


(3.57) 


(3:55) 


(9-99) 


(3.60) 


(3.61) 


1 u? ui 
(A; + م‎ =) l Ae A I MEL 


1 1 1 1 1 
u 1 u 1 u 1 u 1 u 1 


The intermediate mass flow rates per unit area are: 


| > (h, ae") +0, (h, A6) | | 


шү. -----------------------...- Ῥω 
"eu (h, ^6  ) +(һ, дө?) 
j j+1 


| СЕ (h, 46”). t Pii (h, a8) | | 


_ 2 
j j*1 


| [P (h, 46). η ( ne ΔΘ) | | 


zaut, = —— 3.63 
G. =u | (n, ae’) + (h. 267) | ^ 
J j*1 


| С (h, ae") + Pict (в, "1 


а ER MEME 
πο | (һ, a0) +(h, 40) | 


S [Ps (ae) +p, (вае) ]) 
79 [7 (niae) « (nh, a6) 


| | [p (h, 40') +р, (В, 49^). 1] 


2 Піра(в,46) жр,,(Һ,46) || 
S.T ss | (в ле) +(h, 46) | 


o» 


[Pun (na A) +p (naa) || 


| 
EP | (h, 4€) +(h, Ae’) | 
| [Prax (ha 40°) әр, (в, ав?) 1 


G = қ 
Ms usa | (ha 46°) +(h, A) — 


| [Px (ha 4F) +p, (bh; 40°) 1) 


Gan = 
be TH (h, Ae) +(h, Ae) 
k k-1 


Гра (въ д6") +, (вде) ]] 
(h, Ae) +(h, 46°) 
k k-1 
The final mass flow rates for the control volume surfaces are: 
CE = 0.5(G.+G,)*(h, 40°) *(h, Ae’) 


CW =0.5(G,+G,)*(h, 48°) ж(һ,46). (3.64) 


[| Gre Ch, 48°) +Gaw Ch, 46°) || 
4 К +(h, 40°) | | 


[[G.. (h, 40) +G,, (һ, д0) || 
4 | (h, Ae’) + (h, лө) | | 


(Ge (h, 40’) +G,, (h, ΔΘ) | | 
‘| [ Ch, 40) +(n, 40) | | 


CN-(h,40) (nh, A9") 
сз = (һул) (в, ав) 


СЕ = (h, 40) ( h, A0°) 
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[Cu (h, 49) +G,, (αι 46) | | 


| (һ,ле) «(n,4e) | 


СВ = (h, ae) (h, Ae). 


The local viscosity becomes: 
VIS, = VIS 


VIS,, = VIS,_, 


(VIS, + VIS - VIS, , + VIS) 


-1. 111 
VIS, = πο (3.65) 


(VIS, + VIS + VIS j 
МЕ = HO 


+ VIS) 


(У15, + VIS + VIS 
i= 4.0 


1—1, К+1 a VIS,_,) 


VIS 


νο + VIS + VIS 
b 4.0 


ek See wis) 


VIS 


3 1 
via 
h, A0 


n 


3 1 
VISSI = VIS, + ран 
h, A9 


s 


2 3 
атын το; 


h. лө! (3.66) 
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h, A0 


1 


2 3 
sad. AS | 


w 


visri - vis, «| A348 ) (h, 26) 
l h, A6 


visg елле, (8.46) (в, 46) 
i h, Ae 


b 


The coefficients for the momentum equations are: 


u 
E 1 
D B А ре Uu iio 
ZO E PE 
WWR - WW u, 2 
A -А е! 
NNR ^. NN Ч но (3.67) 
Б 1 
= * 
Hee D Ч 2 
= * 1 
E A U k+2 
u 
1 
= * 
nee 2 U 2 


The values of the coefficients A are given as: 


> 
l 


А, + ΥΙΒΕΙ 


> 
II 


A,, + VISW1 
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A, = A + VISN (3.68) 


AIEA TNS’ 
A SAT VISE 
A AE VISBI 


The value of Ap is the summation of all of the values of A: 


u u u u u u u u u 
A,= AL, +A, +A, +A, +A_ +A, +A, +A, + 


+ AN ες t E A (3.69) 


N 


The source term is given as: 


С (h, A) + pue (h, 46) | AV B 
[(h, 46°) + (h, 0°) | x 


ie (Lm ле ) (в, ΔΘ). (Р э РИА M MET 


u 
S. n 


WWR NNR 


КА + Arp + A,,q + RE - RW + RN - RS = RF - RB + 


+ RRY + RRZ —RRX - Buoy * {sin Ze (Se pe 
“(һ, 40”) *cos[ XC (0] E {(Ρει 7 Ps ) (h, Ag) * (3.70) 


*cos[XC(I-1)]} /[(h, 46") ж«(в,46) |АУ 
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with XZ and ZC as the center of the basic cell. The additional parame- 


ters are given below. 


2 3 


o! -(u!,-ul)*VIS, 
КЕ - (Һ, А0” Һ. 460 L. | 


(h, 49) 
RW = (h, A h, 40°) 


j+1 & 


| 
| | 
БЕНЕН 
| 


Eas. (n, Ae?) (3.71) 
2 
"ШО Колы аа 
1 3 , (h, Ae ) 
RF = (h, Ae h, Ae’) 5 
1 2 f (h, ao). 
RB = (h, AO’ h, Ae’) ΡΞ АСЕ 
1 2 b (n, ΤΩ 
5 = ОС от 
ОЕ ο ο 
222 o" (в, Ae") о |, (h, A0') 
σ - 
(n, 4e) * (n, 40) -— 


om 


о (п, 487) +08 Qn, 40) 


" (nh, Ae) + (h, Ae) 
AU] = u 
| uj, (В, А0?) + иу (В, А0?) | 
AU2 = | түү (h, 48 ) 
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| 
a у AG ) 
2 (h, 40) 5 (3.73) 


/| (n, 48) « (n, 49). | 


Р prn A9 ) + uia (h, 46) 
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Е ея 487) жа, (h, Ae’) | 
мез x03 0940), 
е. ao’) Έα (h, ao’) 1 | 
| U Tes ση} 


/| (n, Ae) + (h,49) | 


p (h, Ae’) pU (h, ^e) 


n (h, ΔΘ) + (h, 48). 


ARU12 = AR * AU] * AU2 


o8 


ARU13 = AR *AU1 * AU3 (3.74) 
ARU22 = AR * AU2 * AU2 


ARU33 = AR * AU3 * AU3 

RRY - (9^ -ARUI2) (h, 46") [(h, 4€) -(n,a9') | 
k n S 

RRZ = (6 -ARU13) (h, Ae") | (h, AQ) (Ua, aS) | 
j f b 


RRX = ( 5” - ARU22)(h, Ae’) (в, дө?) -(ῃ, ΔΘ’) |+ 
k “ 


[πο 


— 33 


* (9? - ARU33) (h, 4€) [(n,a€) -(n,ae) | 
j i “ 


The momentum equations іп the other two directions can be 


similarly obtained. 


G. PRESSURE CORRECTION 

One difficulty encountered in employing primitive variables is the 
difficulty in calculating pressure. In a closed system, such as FIRE-1, 
there are two causes of changes in pressure. First, there are pressure 
changes throughout the field due to a net energy change in the system. 
To account for these changes, a global pressure correction is applied. 
Second, there are pressure changes locally which determine the 
velocity field. A local pressure correction is included to account for 


these changes. 
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1. Global Pressure Correction 
A global pressure correction follows from the two-dimen- 
sional scheme developed by Nicolette, et al. [Ref. 4]. Overall pressure 
levels are increased or decreased depending upon whether energy is 
added or removed from the system. Since the volume and mass of the 
system are constant, the sum of the local density times the local vol- 
ume will be constant, and equal to the equilibrium mass. Summing 


over all of the cells, 
Хр? (АУ), = 2 Pop. (АУ), (3.76) 


with n indicating any time and FQ indicating equilibrium. 

Assuming a perfect gas, density is a function of pressure and 
temperature only, since volume is constant. The actual values of pres- 
sure and temperature at any time are the sum of an estimated value 


and the global correction. 


P=P +P, (З 


τ ΙΙ. (3.78) 


with superscript * indicating the estimated value and superscript ΄ 
indicating the global correction. By applying these two equations and 
the perfect gas law along with Eqn. 3.76, the global pressure correc- 


tion becomes: 
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AV AV «AV 

B cn xem - 2j 7 

P 4 ыт Т ) d T ) 
i -- (3.79) 


yo 





This correction is added to the estimated value from the previous time 
step, and iterated until a globally corrected pressure is obtained which 
conserves mass in every cell. 
2. Local Pressure Correction 

An iterative method involving the mass conservation equation 
is used to find the local pressure. Patankar [Ref. 35:pp. 120-126] and 
Doria [Ref. 34:pp. 26-32] describe the method for determining the 
local pressure correction. Initially, the pressure field is guessed or 
the previous pressure field is assumed. Then velocities are calculated 
based upon this assumed pressure distribution. Knowing the veloci- 
ties, the mass source term, Smp (also called residual mass), is calcu- 
lated for each cell. The magnitude of the mass source term and the 
sum of the absolute values of every cell’s residual mass serves as a 
check on the conservation of mass within each cell and through the 
entire flow field. If Smp is close to zero, the guessed pressure field is 
satisfactory; if not, a local pressure correction is calculated and the 
process is repeated until Smp is within the desired range. Once a sat- 
isfactory pressure field is found, the densities for the next time step 
can be found using the equation of state. 

Similar to the global pressure correction, the actual pressure 
equals a guessed pressure (superscript *) plus the local pressure cor- 


rection (superscript ’). 
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P = P' +P (3.80) 


The finite difference equation for the pressure correction 
takes on a form similar to the other finite difference conservation 


equations. The equation for P is: 


P, = A.P E+AyP y +A P +A, P +A, P. + 


P 


A 


P 


; (3.81) 
+A. P.-S 


B B mp 


AV 
with 


p. * (h, A€ h, A9" ). 


oy *(h, A@h, 6°) 
Ag = TT (3.83) 
(Ay + p. o ) 


p. * (h, A0 h, Ae ) 


A ا ل د‎ 
u2 AV (3.84) 
(Αν ai on ar ) 


1% 


o,*(h, A@ h, AO ) 
А; = (ат. олда (3.85) 
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p, * (h, A0' h. A0° ) 


Dl a ER AV ` À (3.86) 
(^ TOPrTAE 
1 2 - 
р„*(һ, А0 Һ, 40 ) 
A. = толы ть 
‚87 
B [αν E (3.87) 
А, = А, + А+ А+ А, + А, + А, (3.88) 


At the solid boundaries where the mass flux is zero, the coefficient A 
which corresponds to the boundary is equal to zero. When the final 
corrected pressure field has been calculated, new velocities are found 


from the following equations. 


т et + s (3.89) 
U cau € U (3.90) 
η (3.91) 
with 
o (P,-P,) (h, A8 h, A0) 
u s Z 
А» 4 224 

Pw At (3.92) 
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" (P, -P,) (h, A0  h, A07) 
AV 


πα = 
p tPs At (3.93) 


3, (P ,-P,)(h, ЛӨ h, Ad”) 
AV 
At (3.94) 


Αρ + Py 
Smp is then computed; if it is within the desired range, the 


calculation is complete. Otherwise a new P is calculated and the pro- 


cedure is repeated. 


H. VENTILATION EQUATIONS 
When forced ventilation is introduced, the velocity equation for 


the control volume containing the ventilation becomes: 


fp u, E A пы ο πρ ег 
(3.95) 
+A, u +A, u, +S, 
with 
20 
A, =10 (3.96) 
S, = specified velocity * 10^ (3.97) 


this causes the velocity in the control volume to be equal to the 
desired values for ventilation, and not be affected by the upwind or 


other adjacent velocities. 
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The boundaries of the control volumes with specified velocity 
require special consideration. The equation for the downwind control 


volume becomes: 


i = A MESA ul + As. + 
| | (3.98) 
ERU uU AU. 
with the starred values defined as: 
E = 0.0 (3.99) 
Sd = Sut АЕ (3.100) 


This causes the ventilation to be the only effect from the upwind cell 
and represents a fixed velocity internal ventilation system. The equa- 
tions for the adjacent control volumes whose boundaries are parallel to 
the flow must also change. For example, the equation for the control 


volume north of the specified ventilation control volume becomes 


n A A A ue + Ан. + 
ΕΤ (3.101) 
with 
саре шад (3.102) 
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A, = 0.0 (3.103) 


This boundary equation makes the velocity in the entire volume 
constant, rather than varying between the staggered cell center and 


the boundary. 
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IV. EVALUATION OF NUMERICAL DATA 


A. INTRODUCTION 

The computer model presented here was designed to model fires 
in the experimental pressure vessel FIRE-1. The theory of the model 
has been given in previous chapters. This chapter will describe the 
modeling of a fire with internal ventilation in FIRE-1. Although such a 
fire test has yet to be experimentally run, this study will demonstrate 
the feature of internal ventilation in the computer model. This is one 
step to make the model more accurately represent real fires. The 
parameters used in the study will be presented in this chapter and the 
numerical solution process will be summarized. The effects of differ- 
ent time steps in the computation will also be discussed. 

Two trials were conducted, one with internal ventilation and one 
without ventilation. A third trial was conducted using the ventilated 
case, but with different time steps for the iterations. 

Pressure, temperature, and velocity fields are generated from the 
computer code. The temperature and velocity fields for various times 
will be discussed for both the ventilated and nonventilated cases. The 
global pressure and thermocouple temperatures will also be evaluated. 
The thermocouple temperatures correspond to the temperatures 
found at the location of the actual thermocouples in FIRE-1, in the 


north end cap (shown in Figure 4.1). Additionally, the global pressure 
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Figure 4-1. Thermoco uple Locations 
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and one thermocouple temperature will be compared for the cases 


with different time steps. 


B. NUMERICAL SOLUTION PARAMETERS 

Various parameters are input into the numerical model in order 
to model a particular fire. These parameters include: initial condi- 
tions, fuel heat release rate, location of the fire, geometry of the 
enclosure, and physical characteristics of the enclosure, including 
heat transfer coefficient and fluid properties inside the enclosure. 
Other items could be added, depending upon the complexity of the 
model: decks, equipment, fire extinguishing systems, and combustion 
parameters. These are planned to be added to this model in the 
future. The location of sensors and the physical description of FIRE-1 
is given in Chapter 1. The ventilation fan locations are shown in Fig- 
ures 4.2 and 4.3. The material properties used in this thesis are listed 
in Table 4.1. 

The numerical model of FIRE-1 uses a cylindrical/spherical coor- 
dinate system shown in Figures 4.2 and 4.3. The grid is spherical in 
the end caps, with 0, R, and 9 directions, and cylindrical in the mid- 
section, with 0, R, and Z directions. There are 14 cells in the R 
direction; one cell represents the tank wall and another is in the 
vicinity of R = O and is used to avoid singularity at the origin. Each 
end cap has six 6 cells; again, one cell is used to avoid singularity. The 
mid-section has 18 Z (or ¢) cells and there are 20 cells in the 0 direc- 


tion oriented counterclockwise. Although a finer grid could be used to 
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Figure 4-3. Ventilation Location in Computer Model (Front View) 
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TABLE 4.1 
SPECIFIC MODEL PARAMETERS 


Wall Characteristics 


Material ASTM 285 Grade C Steel 
Thickness 3/8 inch 

Specific Heat 0.1 Btu/ (Ibm F) 
Thermal Conductivity 25 Btu/ (hr ft F) 

Density 487 lbm/ ft3 


Fire Characteristics 


Burn rate A Given Function of Time 
Initial Temperature 396 C. 

Initial Pressure 1.0 Atm 

Location Center of FIRE-1 


23.1 ft from end 
3.21 ft from bottom 


Ventilation Characteristics 


1. Velocity ο μου БЕС 
Direction South to North 
Location 11.1 ft from end 

4.0 ft from bottom 

2. Velocity 3.18 ft/ sec 
Direction North to South 
Location 35.5 ft from end 


13.6 ft from bottom 


give more accurate solutions, the limitations of the computer 
resources required that the grid not be enlarged. Table 4.2 presents 


additional information concerning the model parameters. 


/ 2 


TABLE 4.2 
GENERAL MODEL PARAMETERS 


Grid 
Number of Interior Cells 6,720 
Number of Tank Wall Cells 560 
Number of Wall Radiation Zones 560 
Number of Fire Radiation Zones 19 
Cells in the 8 Direction 20 
Cells in the R Direction 14 
Cells in the ç Direction (six in each end cap) 12 
Cells in the Z direction (in the mid-section) 18 
Time Step 
Varied 0.0192-0.0288 Sec 
CPU Time (1 CPU hour) 0.6-0.8 sec fire time 


External Heat Transfer Coefficient 15.0 Btu/ (hr ft? F) 


C. NUMERICAL SOLUTION PROCESS 

Two separate programs comprise this model; the first is a surface 
radiation preprocesser program which calculates the view factors. 
The main program is similar to that presented by Nies [Ref. 29:pp. 54- 
57] and Raycraft [Ref. 30:pp. 96-97]. The first part of the main pro- 
gram establishes the initial parameters and inputs the view factors. 
Then the effective viscosity is computed in Subroutine CALVIS. Every 
two time steps, the wall radiation flux is recalculated. Temperature, 
pressure and velocity are computed in subroutines using a semi- 
implicit technique which solves the finite difference equations. Sub- 


routine CALT is then called to determine the temperatures, followed 
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by the computation of the pressure and global pressure correction. 
Then the velocities and local pressure corrections are computed; the 
local pressure correction updates the velocities. With the corrected 
velocities, continuity is applied to each cell and the residual mass is 
found. The sum of the absolute value of every cell’s residual mass is 
called the residual mass source, RESORM. The magnitude of RESORM 
indicates whether the pressure corrections are sufficient. If RESORM 
is too large, the program recalculates the velocities and pressures 
until RESORM comes within the desired range. If RESORM is greater 
than 10.0, the program stops because this only happens when there is 
a stability problem. If this occurs, the time step must be reduced and 
the program restarted using data from a previous step. To economize 
computer time, the temperature, global pressure, and density are only 
calculated every third iteration. The iterations continue until: (1) 
RESORM is below the predetermined value, (2) the maximum number 
of iterations has been reached, or (3) the CPU time presently available 


is insufficient to complete another iteration. 


D. VENTILATION RESULTS 

The numerical model was used to evaluate two fire scenarios: one 
included internal ventilation and the other did not. The specific 
parameters of the model were discussed previously. The validity of 
the ventilation model will be evaluated and the numerical results of 
the internal ventilation case will be compared to the nonventilated 


Case. 
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A direct comparison can be made by looking at the spatial and 
temporal variations of the velocity and temperature fields. Although 
these fields are three-dimensional, they are presented in a two- 
dimensional form at three representative sections in the tank, shown 
in Figure 4.4. Section A is the mid-section front view, which cuts the 
vessel vertically along the axis (Y-Z plane). Section B is the mid-sec- 
tion end view from the south end, cutting the vessel through the mid- 
dle of the vessel, perpendicular to the axis (X-Y plane). Section C is 
the section view at the base of the end cap from the south end, which 
is also cut perpendicular to the axis but at the intersection of the 
cylindrical and spherical portions of the tank (X-Y plane). The venti- 
lated and nonventilated temperature and pressure fields for the times 
30, 60, 90, 120 and 150 seconds are shown in Figures 4.5 through 
4.35. 

Many observations can be made in analyzing the field plots, but 
only the major phenomena will be discussed here. Raycraft, et al. [Ref. 
38] discuss the results of the nonventilated computer model. In this 
thesis, discussion will be limited to comparisons of the two cases and 
some general comments. Particularly interesting phenomena include 
the flame plume, global velocity field, ventilation effects, temperature 
stratification, and the velocity field in a small region near the base of 
the flame plume during the beginning of the fire. 

As can be seen in Figures 4.5 through 4.8, the flame plume is well 


formed early in the fire in both the nonventilated and ventilated cases 


πο 





Figure 4-4. Location of Cross-Sections Used for Isotherm and 
| Velocity Field Plots 
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Figure 4-5. Mid-Section Front Views of Isotherms at 30 Seconds 
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Figure 4-6. Mid-Section Front Views of 


Velocity Field at 30 Seconds 
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Mid-Section End Views of Isotherms at 30 Seconds 


Figure 4-7. 
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Figure 4-8. Mid-Section End Views of Velocity Field at 30 Seconds 
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Figure 4-9. Section View at Base of End Cap of 


Isotherms at 30 Seconds 
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Figure 4-10. Section View at Base of End Cap of 


Velocity Field at 30 Seconds 


82 


== l ` 
6 / 8 τ 
сағатты... I 
| i RS σα 
Уы ΄ 
! V, 4 nw nV 


Com 7, 
| e 
л t X474 NN S 
| 
l τι 
° 

ж 

ο... ο... 


— - Z PF f? tt i و‎ 


VENNA ΙΕ DG m ms 


оа τ 


+ SD y L SK s pš 
е У a 
ΠΝ о : à 


τ 


ἘΝ CENE EE LUE C a 
a I 


а 
221 1% νο: 


` Май Ep p 5058 % 


% ۰ , 


44} 


49» 
RfA, VEROCT'TIY* “eaf “Fre 


FLOW PATTERN 





Figure 4-11. Mid-Section Front View of 
Velocity Field at 40 Seconds 
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Figure 4-12. Mid-Section Front Views of Isotherms at 60 Seconds 
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Figure 4-13. Mid-Section Front Views of 
Velocity Field at 60 Seconds 
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Figure 4-14. Mid-Section End Views of Isotherms at 60 Seconds 
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Figure 4-15. Mid-Section End Views of 


Velocity Field at 60 Seconds 
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Figure 4-16. Section View at Base of End Cap of 
Isotherms at 60 Seconds 
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Figure 4-17. Section View at Base of End Cap of 
Velocity Field at 60 Seconds 
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Figure 4-18. Mid-Section Front Views of Isotherms at 90 Seconds 
90 





= 


Nose cuum = а Э 
n dM 


ο pru Du cu. a 


` 
Оо ο σος τος» 


ης 
| 


ια 


а B / Mu 


FLOW PATTERN 


г 
my 
“м 

“ 

2 
ty 
eS 

= 

2 

= 
it 
— 
= 
= 
-- 
FES 
LJ 
= 


е ә” 2 Ы; 


t ~a a s o 


— ш .. کس‎ 


= -- 


n “--. 


ж 


- --- 


- 


Figure 4-19. Mid-Section Front Views of 
Velocity Field at 90 Seconds 
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Figure 4-20. Mid-Section End Views of Isotherms at 90 Seconds 
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Figure 4-21. Mid-Section End Views of 
Velocity Field at 90 Seconds 
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Figure 4-22. Section View at Base of End Cap of 


Isotherms at 90 Seconds 
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Figure 4-23. Section View at Base of End Cap of 
Velocity Field at 90 Seconds 
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Figure 4-24. Mid-Section Front Views of Isotherms at 120 Seconds 
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Figure 4-25. Mid-Section Front Views of 
Velocity Field at 120 Seconds 


97 


(NO SCALE) 


UNVENTILATED 


(3105 011) 
Q31V 1I IN3AN(D 





Q31V IL LN3A 


309 0'2í(»1 
193 24!i- 


03) Saye! 
220 0141 
ددد‎ 0=! 


SWš3H10S] 





Figure 4-26. Mid-Section End Views of Isotherms at 120 Seconds 


98 


(31925 0М) 
031V HI LN3AND 





СЭМ ЛІМА 


iSa4) JWIS ALLIOVA WHY 
$68 £ 02 0 





М8311У4 М013 





iews of 


Figure 4-27. Mid-Section End V 
Velocity Field at 120 Seconds 
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Figure 4-28. Section View at Base of End Cap of 
Isotherms at 120 Seconds 
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Figure 4-29. Section View at Base of End Cap of 
Velocity Field at 120 Seconds 
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Figure 4-30. Mid-Section Front Views of Isotherms at 150 Seconds 
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Figure 4-31. Mid-Section Front Views of 
Velocity Field at 150 Seconds 
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Figure 4-32. Mid-Section End Views of Isotherms at 150 Seconds 
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Figure 4-33. 


Velocity Field at 150 Seconds 
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Figure 4-34. Section View at Base of End Cap of 
Isotherms at 150 Seconds 
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Figure 4-35. Section View at Base of End Cap of 


Velocity Field at 150 Seconds 
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and it dominates the local velocity field. As can be seen in Figures 
4.12 through 4.33, the plume continues to dominate the field 
throughout the fire. The plume begins at the heat source and flows 
straight up until it reaches the ceiling, then it divides and flows 
towards either end of the vessel. In the local area of the fire, there is 
some entrainment of the field due to the plume flow. Due to the 
strength of the plume velocity, and the absence of any strong global 
circulation, the flame plume divides the velocity field in half, isolating 
the north and south regions. 

The flow in the hot ceiling layer does not appear to have strong 
enough momentum to carry it into the lower half of the tank, even in 
the south end, where the fan augments the flow. Instead, the flow 
recirculates into the tank interior, resulting in a downward-biased 
flow. It then returns to the fire region in a somewhat spatially oscilla- 
tory path. As can be seen in Figures 4.8, 4.10, and the other end views 
of the velocity field, there is a spiral flow circulation pattern in the 
ventilated case. This creates a more stagnant region to the right of 
the vertical center line. Figures 4.7, 4.9, and the other end views of 
isotherms show higher temperatures in this stagnant region because 
the heated fluid is not being convectively transferred. It also makes 
the conductive heat transfer through the tank wall in the region more 
important, as the temperature is higher. In the nonventilated case, 
the flow fields and isotherms appears to be symmetric about the verti- 


cal plane. 
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As mentioned previously, the velocity of the fans is a constant 3.18 
feet per second. This velocity is on the same order of magnitude as 
the flame plume, but since each fan is directed only toward the end 
caps, their impact on the global velocity field is not significant. The 
fan entrainment creates only a small local disturbance to the global 
flow pattern. The north fan outlet, in the lower region of the vessel, 
has little effect upon the global velocity since the global velocity in the 
region is very small, as seen in the nonventilated case. The fans effect 
the heat distribution locally, as discussed in the next paragraph. 

Figure 4.5 shows a hot layer along the ceiling of the tank, with the 
temperature highly stratified in the upper region. The lower two- 
thirds of the tank are still near the initial temperature. This tempera- 
ture distribution is exactly what the velocity field suggests, flow only in 
the upper third of the tank, and little flow in the bottom two-thirds. 
In Figures 4.12, 4.18, 4.24, and 4.30, the temperature stratification 
continues, but the heated fluid is slowly progressing toward the bot- 
tom of the tank. Even at 150 seconds, Figure 4.30 shows that the first 
isotherm, representing 15 degrees Centigrade above ambient, is only 
at the middle of the tank. The bottom half of the tank experiences 
very little temperature increase. In the ventilated case, the isotherms 
in the north end cap are higher than in the south. This can be attrib- 
uted to the fans at either end which push up the heated fluid in the 
north end and push down the heated fluid in the south end. The 
effect is limited to a small region in the end cap because the fan 


velocity is relatively low and the flow is parallel to the isotherms. 
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Since flow is along the stratification, very little mixing of different 
temperature gases occurs except in the end caps, where flow is forced 
into a single region. Had the fans been oriented in a direction not 
parallel to the isotherms, one would expect the temperatures in the 
lower portion of the tank to be more affected. 

One anomaly which appears in the ventilated case is the second 
circulation at the base of the flame plume on the north side seen in 
Figure 4.11. The flow in this region is flowing away from the flame 
plume until it turns upward as it hits the flow returning to the plume 
from the end caps. It is believed that this is a transient phenomena 
due to the interaction between the fan and flame plume entrainments. 
As can be seen in Figures 4.6 and 4.13, the phenomenon has disap- 
peared. Additional data for a time of 45 seconds, not included herein, 
shows no indication of the second circulation pattern. The effects of 
this second circulation pattern can be easily seen in the temperature 
field in Figure 4.11. 

Figures 4.36 through 4.39 present the data from the ventilated 
and nonventilated cases. Figure 4.36 shows that the global pressure in 
both cases is not very different. The differences can be attributed to 
two causes. First, the entire field is not at a thermodynamic equilib- 
rium state, and the relationship between the global pressure and a 
field not in thermodynamic equilibrium is only an estimation. Any 
change to the field which ii closer approach equilibrium, such as 


the mixing due to the fans, would affect the global pressure. Second, 
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Figure 4-36. Pressure Curves for the 
Ventilated and Nonventilated Cases 
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Figure 4-37. Thermocouple #1 Curves for the 
Ventilated and Nonventilated Cases 
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Figure 4-38. Thermocouple #2 Curves for the 
Ventilated and Nonventilated Cases 
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Figure 4-39. Thermocouple #4 Curves for the 
Ventilated and Nonventilated Cases 


the fire is still in its first stages, and the entire field is rapidly chang- 
ing. This dynamic situation, along with the approximations inherent 
in modeling, can also account for differences in the ventilated and 
nonventilated fields. 

Figures 4.37 through 4.39 show the thermocouple temperatures 
versus time; the results are similar to the pressure, with the ventilated 
case increasing more slowly but then catching up to the nonventilated 
case, exceeding it at around 80 to 110 seconds. Since the thermo- 
couples are in the north end cap, they are in the area in which the 
isotherms are pushed upward by the fan. This could explain why the 
temperatures are lower in the ventilated case. The temperatures 
exhibit some local fluctuations which could be the result of thermal 
instability associated with thermal plumes [Ref. 37]. In Figure 4.39 it 
appears that there are large oscillations, but the scale on the graph is 
smaller so that the temperature oscillation of all three thermocouples 
is in the same range. These oscillations appear in both the ventilated 
and nonventilated cases. 

In most numerical models, the time step is an important factor. A 
small time step uses too much computer time, while too large a time 
step results in instability of the model. In this study, two trials were 
conducted with different time steps. In the first trial, a time step of 
0.0288 seconds was used up to 40 seconds of fire time, and then the 
step was reduced to 0.0192. In the second trial, the beginning time 


step was 0.1152 seconds until 6 seconds of fire time, when the model 
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Figure 4-40. Pressure Curves for Trials 1 and 2 
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Figure 4-41. Thermocouple £1 Curve for Trials 1 and 2 


became unstable. At that time, the time step was reduced to 0.0288 
and further reduced to 0.0192 near 80 seconds, when it again became 
unstable. Figures 4.40 and 4.41 show the global pressure and temper- 
ature of thermocouple number 1 versus time for both trials. Note that 
the curves are coincident for the first 20 seconds, then diverge until 
approximately 90 seconds, when they begin to converge. At the end of 
the runs, both the pressure and temperature appear to become coin- 
cident once again. Since the only difference between these two runs 
was the time step difference, it is evident that time step does affect 
the transient results in this computer model. Also interesting is that 
it appears that solutions using different time steps would become the 


same after a long period of time. 


V. CONCLUSIONS AND RECOMMENDATIONS 


A. CONCLUSIONS 


Several conclusions may be drawn from this simulation model of 


the FIRE-1 test facility with ventilation: 


1. The ventilation model has been successfully incorporated into the 
numerical model of FIRE-1. The local velocity fields in the 
region of the fans exhibit a realistic behavior. The global effect of 
the fans is small due to the relatively low velocity and because the 
flow is parallel to the isotherms. 


2. The global flow field exhibited appears realistic. The fire plume 
increases the gas velocity upward, resulting in a ceiling jet which 
is the dominant flow in the field. The flow recirculates within 
the field with minor variations caused by the ventilation. 


3. The isotherms depict the concentration of hot gases in the top of 
the field. These hot gases stratify and slowly diffuse downward as 
time progresses. The isotherms are affected by the ventilation in 
the end cap region, where they are pushed upward or downward. 


4. A small change in the time step makes a discernable difference 
in the transient solution. With different time steps, the transient 
solutions are different. When the time steps are the same, the 
previously diverging transient solutions appear to converge and 
become coincident. 


B. RECOMMENDATIONS 


The following recommendations are made for future work on the 


numerical model: 


1. Additional FIRE-1 experiments are needed to better validate the 
numerical model. Accurate heat-release rate data must be 
obtained and included in the model, instead of using a synthe- 
sized rate. Additionally, sensors should be placed at different 
locations in the vessel to better validate the numerical results 
throughout the field. 


ШЕ 


. Develop and incorporate additional models to simulate physical 
phenomena such as gaseous radiation and combustion. 


. Continue to expand and validate the model to include decks, 
equipment in the space, and fire-extinguishing systems. 


. Since the model uses an extensive amount of computer time, it is 
imperative that the numerical model be transferred to a super- 
computer or a dedicated mini-computer. 


. The ultimate goal of this project is to develop a computer model 
for predicting fire and smoke phenomena in shipboard situations. 
Completion of this goal will offer ship designers and engineers 
with a valuable tool to design and build safer ships and 
submarines. 
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APPENDIX 
COMPUTER PROGRAM 
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THREE-DIMENSIONAL NUMERICAL SIMULATION 
OF A FIRE SPREAD INSIDE A NAVY STORAGE TANK 


DEVELOPED BY : 
Н.О. YANG AND K.T. YANG 


DEPARTMENT OF AEROSPACE & MECHANICAL ENGINEERING 
UNIVERSITY OF NOTRE DAME 
NOTRE DANE, INDIANA, 46556 
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жж 
жж 
жж 
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3X 3€ 3 x * 3€ € € 0 X x» X € € € € € € 3€ € * *» 32€ € € € HE E EK XK E 3€ X 9€ * X * €x 9 € 3*3 «x 


CO 


CO 
CO 


ος 


MMON/RG/XC(93),YC(93),20( 93 ),*S093),YS(93),Z2S0 93), 


DXXC( 93 ),DYYC( 93 ),D22C( 92 ),DXXS( 93 ),DYYSC93) ,D22S8(93) 


MMON/BL1/Dx,UCY;,D2,VOL,DTIMZ,VOLDT,;THOT;,TCOOL,;PI,;Q,;QR 
MIT)ON/BL7/NI ;NIPl,,NIM1,NJ,NJPl1,NJMl,;NX,NÉPl,NKHMI 


HIP2,NJP2,NKP2,NA,NAPl1,NAMl,NDNEPl,NEMl;KRUH;NCHIP;NJRA,;NHRP 


MHON/ZBL12/ NRRITE,NTAPE ;HTMAXO ;NTREAL, TIME ; SCRSUM,ITER 


00000100 
00000200 
00000200 
00000400 
00000500 
00000600 
00000700 
00000800 
00000900 
00001000 
00001100 
00001200 
00001300 
00001400 
00001500 
00001600 
00001700 
00001800 
00001900 
00002000 
00002100 
00002200 


COMMON/BL1G/HCOEF »TINF »CNT ,ASTURS ,BTURB ,VISL »VISMAX ,CCORRT »PM1 ,PM200002300 


COMMON/BLIo/ CONST1,CONST2,CONST3 ,COHNSTS ,CONSTo »NT ,U0 5H, UGRT ,BUOY ,00002400 
CPO,PRT,CCNDO,VISO,RHOO;HR,TR,TA,OTEMP,THRITES;TTAPE, TMAX,GC,RAIROO002500 
COMMO! l/BL20/SIG11(225;10,32), 516121 22510,32), 8IG22(122,10,232) 00002600 
>51615(22,15,22),51525(22,16,521!,5152>(с2,16,52) 00002700 
COMMON/2L22/ZCHP8(10),;NCHPI(t10),JCHPB(10),NCHPJ(C10O ), KCHPB(10), 00002800 
NCHFXN( 10), TCHP(20 ) ; CPS( 19 9, CONS(10 ) ;NFANLC10) 09002900 
COMMON/BL3S1/ TOD(22,165,30),RODi 22,105,32),POD(¢22,16,32) 00002000 
»>COD(22,16,32) ,00( 225,10,32),VODI22,16,52),WO5(22,16,32 ) 00003100 
COMMON/BLZ2/7 TC22516, 352 );RC225165,22 ) ;Pt 225165, 32 ! 00005200 
;:C(225106,321,U( 22516,32!),Vt 22,165, 22 ),K( 22516, 322) 00002300 
COMMON/BLSS/ ТРО(22,16,52),КР0(22,16,521,РРО(22,16>22) 00002400 
;CP0(225,10,32 ),UPD(L 225165, 32 ), VPD( 225,16, 32 ),HP2( 22516, 32) 00002500 
COMMON/EL34/ HEIGHTI 22,165,528); REQU 225,10, 22); 00002600 
$M2(225,10,22),S^4PP( 225,10, 32),PP0l22516,22); 00002700 
DU(225,16,22),DV( 22,16, 32) ,D( 22516532) 00002800 
СОММОН/Р 1 2о/АР(22,16,52),ДЕ(22,10,52),А/(22,16,32),АМ(22,16,52), 00002900 
А45(22,1о,52),АҒ(22,16,221,48(22,16,52), 00064000 
SP(C22516,22 ),5U(22,16,32),RI( 22,106,352) 00004100 
COMMON/BL27/7 VIS(22,16,32),COND(22,16,32),NOD(22,165,32) »,RWALL(579 )00004200 
»>CPM(22,16,32 ),HSZ(3,2 ),NHSZ(22,16,32),RESORM( 93) 00004300 
COMHMON/BL38/NTHCO,;CX( 12),CYt 12), C26 12 ); NTHC125, 3 J; TCOUP( 12) 00004400 
COMI TOH/BELZ9/ALEH,PCURVE ; CONSRA ;PCURMI ;PSOUTH ,QCORR , PERROR 00004500 
DIMENSION VFMXC(579,579),TGWALL( 579) 00004600 
DATA N,ITLEFT,SORMAX,XTIHE ,TMAX/20,400000,0.40,0.0,6/ 00004700 
00004800 

000054900 

00005000 

00005100 


L2 


жжж Н52(1,1),Н52(1,2) FIRST AND LAST COORDIANTE OF HEAT SOURCE 
IN X-DIRECTION (IN DIMENSIONLESS FORM) 

Н52(2,1);Н52(2,2) FIRST AND LAST COCRDIANTE OF HEAT SOURCE 
IN Y-OIRECTIOH (CIN DIMENSIONLESS FORM) 

HS2(3,1),HS2(3,2) FIRST AND LAST CCORDIANTE OF HEAT SOURCE 
IN Z-DiRECTICN (IN DIMENSIONLESS FORM) 


X** ICHPBU) : STARTING NODAL NUMBER FOR SOLID IN THETA-DIRECTION 


“СЕНЕР; R-OIRECTION 

KCHPBC)JE. : Z OR PHI-DIRECTION 
xxx HCHPIC) : NUMBER OF NODALS FOR SOLID IN THETA-OIRECTION 

Νο Προς 1 R-OIRECTION 

ΠΕΠ}: 2ЭРНІ-ОІКЕСТІОМ 


жж хх хх 9€ 3€ e € € 3 ххх 3¢ 3¢ C XE ee 3€ 3e € 9€ 9€ 3€ 9€ € € C 6 ЭЕ ЗЕ € + 5 5 × 


8%54425225824425488455584422888528845528525484508422885580548454424424248482244 

INPUT OATS & 

850538%2422422444282825548450405580%228888884884450258444224824245842% 
CALL INPUT 


©) 


ω ο, 


&888&Д82424548428288АЙ8888888858885808545885852888585858585885588585855454548& 

GENERATE GRIO SYSTEM & 
C &£8&8$8$888688888&88&888688888&$&888888888888&884$$8888&88&2888&83888888& 
CALL GRID 


ΩΩ 


C FHRLEKKIRKRAHHRERKS TREK KAKKETASTRASKRSIKKH KKK KKK AF SSRHRKAKAA FFF 
С жж» REAO VIEW FACTOR INVERSE MATRIX g 
CHEFR AHH SARE REAR SHEE RIHERSHARSAFL ERIK ESS FRK TREKS KARR ESR ESR RTS FF 
999 REAO (11,EN0=998) VFMXC 
GOTO 999 


22 


00007700 
00007800 
00007900 
00008000 
00005100 
00008200 
00998300 
00002400 
C0008500 
00008600 
00002700 
000088C0 
000с2900 
00909000 
00009100 
00009200 
00009200 
00009400 
00009500 
00009600 
09009700 
00009800 
00009900 
00010000 
00010100 
00010200 
00010300 
00010400 
00010500 
00010600 


C **x UO : REFERENCE VELOCITY (Fl/7SEG 3h ore 00005200 
C *** RHOO : REFERENCE AIR OENSITY tLBM/FT3*x5 ) 00005300 
C ww* H : REFERENCE LENGTH (ΕΤ) 00005400 
C **x*x ТА ; REFERENCE TEMPERATURE (R) 00005500 
C **xx TINIT : INITIAL. TEMPERATURE (0) 00005600 
С жж GC > GRAVITATIONAL CONSTANT 00005700 
C *x**x RAITR : GAS CONSTANT; 53.3% 00005800 
C **x* COHST1 : RAXUOx*x2/GC 00005900 
C *** CONST3 : INVERSE OF ΤΑ 00006000 
C xxx CONST : REFERENCE LENGTH (CM) 00006100 
C xx% CONSTo.: REFERENCE VELOCITY (CM/S) 00006200 
C *xx CONSRA : TA**232/(RA*CPXUOXH*H ) 00006300 
C ++ NTRHR ο: NTREAL/NHRITE*NHRITE 00006400 
C *x*x NTRHA  : NTREAL/NHALT*NHALT 00006500 
C s**x*x HCONV : HEAT TRANSFER COEFFICIENT ON THE AMBIENT (BTU/H.FT*x2K) 00006600 
E 00006700 
C 00006800 
E 00006900 
С *** RAD,H: RADIUS OF THE CYLINORICAL AND SPHERICAL SECTIONS 00007000 
С CYL + LENGTH OF THE CYLIBORICAE SECTION OF The Tan. 00007100 
C xx* NI : TOTAL NUMBER CELLS IN THETA-OIRECTION 00007200 
E NJ : R-DIRECTION 00007300 
C NK : Z AND PRI-OIRECTIONS 00007400 
С МА : FIRST NUMBER Z-DIRECTION, ALONG THE CYLINDER AXIS00007500 
Е NB : LAST NUMBER Z-DIRECTION, ALONG THE CYLINDER АХ1500007600 
C 
C 
E 
C 
С 
C 
C 
e 
С 
С 
£ 
C 
E 


αυ. ΝΟΕ 


REWIND 11 
CLOSE (11) 
C 55258825882452828588525858258552552555585555255525558558555555555555255558 
C INITIALIZE THE WHOLE FIELD & 
С 4888058855858255548558885585225858545552558528522552555555255555225524 
CALL INIT 
С &&8&58&882&8588585855585555555553555585855555485858545585554555555555555Д5&4&4 
С START CALCULATION & 
С 8888585855558525855855588585252485258555825522555852558285555585552585525555252 
NT=0 
NTIM-O 


300 CONTINUE 
NTzNT*1 


С эсе NTMAXO HAS THE MEANING AS "NTREAL" WHEN IT IS READ FROM 
C DISK OR TAPE. 


ІРСХТІМЕ .GT. TMAX) GO TO 303 
NTREAL=NT ¢NTMAXO 

TIME =TIME+DTIME 
XTIME=TIMEXH/UO 


C4¿&42¿2&4824888882848828888688888c6484888888868442448244844248848488242488888 


C CALCULATE THE TRANSIENT HEAT INPUT & 
С NOTE IF 1 IN PARENTHESIS, THE BURN RATE IS CALCULATED & 
C BY THE PRESSURE CURVE. IF EQUAL TO TWO, THE BURN RAT & 
C CURVE IS EITHER GIVEN OR ESTIMATED & 


C£4&8548&588658E2&8EZ8288£&8425&88868&8& 8888858838888 8888888$8248858888288888 
CALL CALQ( 2) 


C *** START CALCULATION 


ITER=0 
JTERN=O 
ЈЈТЕКМ=0 
C DEFINE THE UPDATED TPD(I,JK), CPD(1,3J 5 ) RPD(I1 J K) 
C UrPFDtI,J,K) ANO VPD(I,J,K) FOR THE USE OF CALVIS AND SUt(I,J yK) 


DO 48 Kz1,NKP1 
DO 48 J-1,HJP1 
DO 48 I-1,HIP1 
TPD(I1,J Κ)ΞΤίΙ 9) Κ) 
CPD(I,J,K)=C(XI,J,K) 
RPD(I,J,)K)=R(I,J>K) 
UPD(I, J Κυ κ) 
VPD(I,;J yK)=V(I, J, K) 
КРО(І کول و‎ ( =۴) no 
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00010700 
00010300 
00010900 
00011000 
00011100 
00011200 
00011300 
00011400 
00011500 
00011600 
00011700 
00011800 
00011900 
00012000 
00012100 
00012200 
00012300 
00012400 
00012500 
00012600 
00012700 
00012800 
00012900 
00013000 
00013100 
00013200 
00013200 
00012900 
00013500 
00013600 
00013700 
00013800 
60913900 
00014000 
00014100 
00014200 
00014300 
00014400 
00014500 
00014600 
00014700 
00014800 
0001495900 
00015000 
00015100 
00015200 
00015300 
00915400 
00015500 
00015500 
00015700 
00015800 
00015900 
00016000 
00016100 


48 CONTINUS 

29 CONTINUE 
JTERM-JTERM*1 

301 CONTINUE 


C&88,£88888588588888888888888885885855858885858588858588855888555858888 
C CALCULATE THE RADIATION HEAT FLUX AT EVERY NRAD TIME STEPS & 
C&8888888888552&88888&8&888288888588&88588585525858588888882888285558588588588 


NRAD = 2 
IF (MODIUNT ;,NRAD).NE.0) GOTO 4000 
CALL RADHT(TSWALL ; VFMXC ) 

4000 CONTINUE 


CHERER IKK KS KK ISKKKKE RLF KRRKTKFKK FR LKR TKK RS KER KLKKKKRTTKIRIKKSKTS 


C CALCULATE THE TEMPERATURE т 
223233553255 25232%5352525525225232232 555555245555: 

CALL CALT 
С54288255822258%28588885588555555555888558888555558428888254484442452 
= CALCULATE THe SMOKE CONCENTRATION 8 
С288885528522222254855454882455585458854885455588885855855585555524 
С CALL CALC 


DO 2000 J=1,NJP1 
DO 2000 I-1,NIPI 
DO 2000 K=1,th Pl 
LF(T(I,J,KI.LT.TCOOL) T(L,J,K }=TCOOL 
2000 CONTINUE 
CLEA SIL LIIS ILL IL ILLI ИИСИ 
C GLOZLE PRESSURE CORRECTICN FOR ENCLOSED TANK AIR Z 
ο κκ κ λα ατα ИИ 
CALE GLOSE 


C999999729999999999999909999099090999999999999990999999999999909999099 


С CALCULATE THe TURBULENT VISCOSITY AND CONDUCTIVITY 3 
(99999 99939299 99399999 99999 9999939399 9999)9 99999999 9393999929) 9 99 9 29999399) 
CALL CALVIS 


CK FHI HH HHI E E EE EEX E XK E E E E KC EK E E PE JE JE EC E EXC EX EXE JE PE ME HEM HE DE E E E JE PE PE ME E € € 3E 
CALCULATE THE OENSITY % 
CHIH HHH IK EH I COE IE c JO E © ЭЄ Эк ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ JE HE IERE JE JE JÉ He E E E E EE XK € EE EE EE IE Xx E EK 
DO 100 J-1,NJP1 
ОС 100 1=1,МІРІ 
00 100 K=1,NKP1 
IF €NOD(I,J,K).EQ.1) GOTO 100 
ARAAZBUOYTUGRT*HEIGHT(I;,J,K) 
RI ,J,KÉ JC UGRTXPEOI,J,KO*(C1./EXPCAAAA )Z/TCEI JS, K) 
100 CE TINUE 


C$$$$$$SSSSS$$SSSSSSSS$S$$SS$SSSSSS$SSS$SSSSS$SSSSSSS$S$SS$SSSSSSSS 

C CORRECT CONDUCTIVITY OF THE SOLID $ 

C$$SS$$$SSSS$$SSSSSSSSSSSSSSSSSSSSS$SSSSSSSSSS$SSSSSS$SSSSSSSSSSSSSS 
IF (NCHIP.EQ.0) GOTO 410 
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00016200 
00016300 
00016400 
GC016500 
00016600 
00016700 
00016890 
00016900 
00017000 
00017100 
00017200 
00017300 
00017200 
00017500 
00017600 
00017700 
00017800 
00017900 
00018000 
00018100 
00018200 
00018200 
00018400 
00018500 
00018600 
00018700 
00018800 
00018900 
00019000 
00019100 
00019200 
00019300 
00019400 
00019500 
00019600 
00019700 
00019800 
00019900 
00020000 
00929100 
00020200 
06020500 
00020400 
00020500 
00020600 
00020700 
00020800 
00020900 
00021000 
00021100 
00021200 
00021300 
00021400 
00021500 
00021600 


CALL SOLCON 
410 CONTINUE 


ου. υπ ΑΛΛΑ 


С START PRESSURE CORRECTION ITERATIVE LOOP; IT IS THE MAJOR 7 
C PART Or THE ERROR CONTROL ROUTINE Л 
ү adde d added eae aee e e AALS ASA ALAA AAAS AL AALS A 


JiER=ITER+1 


C229222222222222222202202222202202220202222222222022222220222222222222222o22222222 
C CALCULATE THe VELOCITY U,V,AND W 3 
{999999999929999Φ9295999 99999929 292299929 9929999999 9999 9999992999 99999998) 


CALL CALU 

Ce CALL STRESS 

CHI HHH MH HHH HHH 
CALL CALV 

ЕС CALL STRESS 

QC 393 93 *30 90 € HEE HEI 
CALL CALH 

CC Gace SIRESS 

С жээ 333 «*xx**x»xx*x«* 


C$$$3$$92$$9$$$$$$$$$$$$$$$$$$ $$$ 5$ $5$$ $$$ $$$ $$$ $$$ $$$$$$$$$$$ $$ $$ 
С CALCULATE THE PRESSURE AND STRESS & 
C$$$SSSSSSSSSSS$SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS$SSSSSSSSSSSSSSSSS 


CALL CALP 
CELE STRESS 


poU UI ae ad d edd e e ea κ лл P oe o I a 

С IF SOURCE TERM IS LARGER THANH 10.0, STOP PROGRAM ^ 

IIS d Mad de ΑΛΛΑ A ASA ASD 
Peete soORMIITER).GT.10.0) GOTO 2020 


IFCRESORM( ITER) .LE. SORMAZX) GO TO 49 
ο ες SES. 1) ου το 502 
ITERHI-ITER-1 
IFURESORMCITER) .LE. RESORMLITERI1)) GO TO 202 
GO TO 304 
302 IFCJTERM .GE. 2) GO TO 37 
SOURCE=RESCORMIITER) 
ES ο 5 
SIETIEBRESOPMIITER) .LE. SOURCE) CO TO 38 
GO TO 50% 
38 SCURCE=RESORMIITER) 
29 CONTINUE 
WRITE!6,95) ITER,RESORM( ITER) ,SORSUM 
95 FORMAT(S35X,'ITER=',I2,2X%, *SOURCE='5F9.6,2X,» 'SORMUP=',F9.6) 
DO 23 K-1,NKP1 
DO 23 J-1,NJP1 
DO 23 I=1,NIP1 
TPD( 2) Fr. J=T(I,J,K) 
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00021700 
00021800 
00021900 
00022000 
С022100 
00022200 
00022300 
00022400 
00022500 
00022600 
00022700 
00022800 
00022900 
00022000 
00023100 
00023200 
00023300 
00023400 
00023500 
00023600 
00023700 
00023800 
00023900 
00024000 
00024100 
00024200 
00024500 
00024400 
00024500 
00024600 
00024700 
00024800 
00024 900 
00025000 
00025100 
00025200 
00025360 
00025400 
00С25500 
00025500 
00025700 
00025800 
00025900 
00026000 
00020100 
00020200 
00020300 
000264200 
00026500 
00026600 
00026700 
00026800 
00026900 
00027000 
00027100 


35 


58 


304 


81 


40 


G9 


CPD(I,J,K »C(LI,J,K) 
RPD(I,J,K)=R(I, JyK) 
UPD(I,J,K SU ТЕШ СК) 
VPD(1,J ΚΣ )ΞΝ (129) Κ) 
HPD(I,JyK)#H(I,J>K) 
РРО(І»./К)-Р(І,.)К) 
CONTINUE 

JJTERM=0 


IF(ITER .EQ. ITHAX) GO ΤΟ 49 
IF(JigRM .EQ. 2) GO TO 25 
IF(ITER .EQ. 4) GO TO 29 


CONTINUE 


IF( JTERM .EQ. 3) GO TO 58 
IFLITER .EQ. 7) GO TO 29 


CONTINUE 
JJTERM=0 

GO TO 301 
CONTINUE 
JIJTERM=JJTERM+1 


IFCJJTERM .EQ. 1) HRITEL6,95) ITER, RESORM( ITER) »SORSUM 


IFLJTERM .EQ. 1) GO TO 41 


IFC JTERM .EQ. 2 .AND. JJTERM .EQ. 1 .AND. 


GO TO 82 

CONTINUE 

DO 40 K=1,NKP1 

DO 40 J=1,NJP1 

DO 40 J=1,NIP1 
R(I,J,KJ)-RPOLCIS;,JoK) 
UC I;J,K)*UPD(II,;, J,K) 
V(I,J,KI=VPD(I,J,K) 
WC I,J,K J=nPOCI,J>,K) 
P(I,J>sKJ=PPD(I,J>K) 
CONTINUE 

ШЕГТТЕН СЕО ИА 
GO TO 29 

CONTINUE 

DO 45 K=1,NKP] 

DO 45 J=1,;HJP1 

DO 63 I-1,NIP1 
TCI,J,KI-TPD(I,J,K) 
ην ποσο τμ) 
R(I,J,K zPPD(1 J K) 
U(I,J,K)=UPD(I,;J>K) 
Ας yK JzSVPD(I,J K) 
WI1,J KJERPD(I,J>K) 
PLI J I=PPO(I,J>K) 
CONTINUE 

IF(ITER .EQ. ITMAX) 


GC TO 49 


GO TO 49 


IF((JTERM .EQ. 2 .AND. ITER .NE. 8) 


CO TO 301 
CONTINUE 


ITERT-ITERT*ITER 


ITER NE. 


5) GO TO 41 


.OR. JJTERM .EQ. 2) GO TO 49 


CHREFIFHEKHKFRRHRAS KFS FFEREK SKS F SHREK KKK STFS KF KESKAEL ERISA KLIS 


C 


GO TO THE PRESSURE TRACKING SUBROUTINE 
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»PRINT OUT 


# 


00027200 
00027300 
00027%00 
00027500 
00027600 
00027700 
00027800 
00027900 
00028000 
00028100 
00028200 
00028300 
00028400 
00028500 
00028600 
00028700 
00028800 
00028900 
00029000 
00029100 
00029200 
00029300 
00029400 
00029500 
00029600 
00029700 
00029800 
00029900 
00030000 
02020100 
00020200 
00020300 
00030400 
00030500 
00030600 
00950700 
00030800 
00050900 
00051000 
00921100 
00031200 
00021500 
00051400 
00031500 
00051509 
00021700 
00051800 
00051900 
00032000 
00032100 
00032200 
00032300 
00032400 
00032500 
00032600 


C 


RESULTS IF AT THE RIGHT TIME INTERVAL # 


CHFFFFSRESERAF SHI SAHFLHS SSR GRSSKHRKRKAKGTRASRHSRK ROCK KIRAAKARARRKKT 


C 
E 


OOOOO O 


E 


EM D BHEEETTEFTTTTEEELLINSTI 


~ 
= 


CALL PTRACK 
IF (MOD(NTREAL »NWRP3}.EQ.0) CALL OUT(13 


ο ο κ μμ ροκ κά 
FIND TEMPERATURES AT THERMOCOUPLE POINTS AND PRINT OUT ^ 
IF AT THE RIGHT TIME INTERVAL Z 


IMAL AMALIA SAAMI AAA LS, 


ούούούούοόροόούο 


3e3ex* 


305 


HHS 


CALL TCP 
IF (MOD(NTREAL »NWRP}.EQ.03}3 CALL OUT(2) 

CONTINUE 

IF (MCOLNTREAL,NWRITE ).EQ.0) CALL OUT(3) 
IF(NTREAL .EQ. NTREAL/NHRITEXNHRITE) CALL OUT(2) 
CONTINUE 
IFLCXTIME*DTIMEXH/UO) 


‚СЕ. TMAX} GO TO 277 


5-56 55-6 ا کک چو چ‎ 55555 55-6 65655365366 355555655 5636355 5655-5-55 ЭЕ E E ODE CO DEBE 
CALL TLEFTCIT) 

FORMAT(' ITLEFT 7 ',110) 

ΙΤΟΞΙΤ 


Perret). TTLEFT ) CALL OUTCS) 
HK HEH ЭЕ ЭЕ ЭЕ ЭЄ ЭЁ ЭЄ ЭЄ ЭЕ ЭЕ ЭЄ ЭЁ ЭЕ ЭЕ ЭЕ ЭЕ ЭЄ Э © ЭЕ JE IE IE JE JE JE JE JE HE JEJEJE ЭЕ ЭЕ ЭЕ ЗЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ Э-Э ЭЄ ЭЕ ЭЕ ЭЕ Эк ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ 


RESET THE OLD TIME VALUES TOI, ROD, UOO, VOD AND POD. 


305 K=1,NKP1 

$05 Jz1,NJP1 

205 Іг1,МІРІ 
TODI, J;K)=T(I,JK) 
ССО(:2»25ЬК):С(1,.)К) 
ROD(I,J>K JER(I,J5,K) 
ООО! I,J | K  #]! І,Ј,К) 
VOD ( KE =: ЈК) 
NODI, J,K !-MW(LI »J5K) 
PODIT,J,KjI=P(I,J,K 3 
CONTINUE 


C ПТИЦ ТИ A EETEHI 


THIS WRITING IS FOR PLOTTINGS 


ΙΤ 
IFUNTREAL NTREAL/NTAPE*NTAPE JGOTO 522 
IKRITE=10 
WRITE; IWRITE) 
& TIME ,NTREAL T, RU, V,W,P,CPM,COND, VIS ,QRNET , ITERT,QCORRT ,PH1,PM2, 
& H,TA,UO,CONDO , VISO , RHOO ,HI NJ, NK ,NIP1,NJP1,NKP1,NIH1,NJM1 NKM1 , 
& XC,YC,ZC,4S,YS,2S,DXXC,DYYC,DZZC,OXXS ,DYYS ,DZ2Z2S 
WRITE(L6,*) ‘THE TIME WHEN THe DATA WAS STOREO ON TAPE IS:', 


ἃ ATIME 


«ΝΕ. 


He HH HH E 9€ € 9€ XC 3€ E E E E TE HE ETE E E E E E E E 9C 9C 9E E E € 9€ 2€ 9X 3€ 9€ 3€3€ E E E EE E E E E E E 9€ 9€ 9€ 9€ 9€ 9€ 9€ 3€ 
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00032700 
00032800 
00032900 
00032000 
00023100 
00033200 
00033300 
00033400 
00033500 
00025600 
00033700 
00033800 
00033900 
00034000 
00034100 
00034200 
00034300 
00034400 
00034500 
00034600 
00034700 
00034800 
00034900 
00025000 
00055100 
00035200 
00035300 
00055500 
00035500 
00035600 
00035700 
00025800 
00025900 
00036000 
00036100 
00026200 
00036300 
00036400 
00026500 
000 56600 
00056700 
00026800 
00025900 
00057000 
00037100 
00037200 
00037300 
00037400 
00037500 
00037600 
00057700 
00037800 
00037900 
00038000 
00038100 


522 CONTINUE 


ЖЖЖ 3C E EXC C COE E JE E E E EEE E EE PE E E C EE C CC JE JE E COCOA 36 ME JE E JE JE FE JEJE FE JE JE FE JE JE FE JEME EXC XE 
CALL TLEFTC(IT) 
ІРГІТ LT.ITLEFT) GO TO 166 
XXX E E E HE EE EK E E E E E E EE JE E JE PE JE E JE JE JE JE E E JE E EK E EE E JE E E E E E JE JE JE E E E E JE E FE FE CK EK 
TIMREM IS USED TO CALCULATE THE CPU TIME REMAINING AT NPS 


O OQ O O oO 


IF (TIHREM(O.).LE.80.) СОТО 196 


GO TO 300 
303 CONTINUE 
277 CONTINVE 


WRITE(6,11113 
1111 FORMAT(2X, '3exx*x* THE MAXIMUM TIME HAS BEEN REACHED 3eeeee',I8) 
GO TO 172 


С «κκ эс эбзе ЭЕ эе ж E E E E EE E IC E a EE E EE E E FE OXCOC E HEI FEI IE FEE FE SE Э-Ж-365-656 IE 
léo IF(NTREAL .NE. NTREAL/NTAPE*NTAPE ) WRITE(9) 
& TIMES;NTREAL,T;R.U,V,H,P,CPM,COND, VIS, QRNET , ITERT,QCORRT ,РМ1,РМ2, 
& H,TA,UO, CONDO, VISO,RHOO;NI.HJ,NK,NIP1,NJPl1;,NKP1,NIMI1,NJMl1,NKMIl, 
& XC,YC,2C,XS5,Y5,25,DXXC,DYYC,DZcC,DX*»S5,DYYS,D225 
REHIHD 9 
C 333 3300 XC E E E EE EE E EE E E E E JE JE E E EEE E E JE E E EK E JE JE JE IE PE JE JERE E E EE E3 E E EK € 


GOTO 172 
2029 CONTINUE 

WRITE 46%) ° RESIDUAL MASS IS LARGER THAN 10.0, PROGRAM STOPS’ 
172 CONTINUE 

STOP 

END 


+ 


SUBROUTINE INPUT 


00038200 
00038300 
00038400 
00038500 
00028600 
00038700 
00038800 
00038900 
00039000 
00039100 
00039200 
00039300 
00039400 
00039500 
00039600 
00039700 
00039300 
00039900 
00040000 
00040100 
00040200 
00040300 
00040400 
00040500 
00040600 
00040700 
00040800 
00040900 
00041000 
00041100 
00041200 
00041300 
00041400 
00041500 
00041600 
00041700 


3C 3 3 3€ 3€ 3€ 9€ 9€ 9€ J€ k << 3€ 9€ € 9€ 9€ 9e 9c 9 9€ € 9€ C JC 3e 9€ C 9€ JC HK HH HEH HK HI HHH HHI HH IH HHH HH HHH HH HHHHKHKHH 0004 1500 


CC041900 


эе J€X3t3C JC x 3€ 0 3€ 9E 9€ 3€ 3€ 3€ 2€ E € 3€ 9€ E IE 3C DC 3C 9C 9€ E € E E E CE JC OC C CE E JC C E E E OC EXC C 9€ € € € COE € CX 9€ X 3€ ΟΟΟΘΖΟΟΟ 


- THIS SU2RCUTINE SETS UP REQUIRED VALUES TO BEGIN THE PROGRAM. 

* VARIABLES ARE: 

~ KRUN = WHEN EQUAL TO ONE,READ FROM THE 

~ RESTART DISK, ELSE FROM THE JCL 

+ NCHIP = NUMBER OF SOLID PIECES 

+ NWRP = NUMBER OF TIME STEPS TO WRITE ON THE 
- PAPER 

ж NTHCO = NUMBER OF THERMOCOUPLES TO PRINT OUT 
x TMAX = MAXIMUM TIME ALLOKED (REAL) 

* TWRITE = SECONDS IN REAL TIME TO PRINT THE 

* P,V,T FIELDS ON PAPER 

* TTAPE = TIME INTERVAL TO WRITE ON THE TAPE 

ж DTIME = TIME STEP DIMENSIONLESS) 

x HSZ = HEAT SOURCE SIZE, USED TO CALCULATE 
ж THE VOLUME OF THE FIRE CELL 

- ICHPB = FIRST SOLID NODE IN THETA DIRECTION 
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*00042100 
#00042200 
#00042300 
x00052400 
#00042500. 
x05062600 
*00042700 
x00642800 
x00042900 
x00043000 
x00043100 
x00043200 
x00043300 
ж00045400 
*00043500 
x00043600 


κ. kK xk Жж 


` 


> 


©) 


#2. 


& 


& 


& 


& 


& 


& 


& 


& 
& 


& 
& 


& 


JCHPB 
KCHPB 
NCHPI 
NCHPJ 
NCHPK 
Cx »CY CZ 


FIRST SOLID NODE IN R DIRECTION 

FIRST SOLID NODE IN PHI DIRECTION 
NUMBER OF NODES IN THETA DIRECTION 
HUMBER OF NODES IN R DIRECTION 
NUMSER OF NODES IN PHI DIRECTION 
THERMOCOUPLE POSITIONS IN THETA,R>PHI 


СОММОМ/Ба/хХСс(925),ҮС(92),2С(93),Х5(951,Ү5(95),25(951, 

DXXCt 93 ),DYYC( 93 ),D22C( 93 ), DXXS(C 93 ),DYYSC92 ),D22S( 923 ) 
COMMON/BL1/DX ,DY D2Z,VOL,DTIME ,VOLDT, THOT,TCOOL ;PI;,Q,;,QR 
COMMON/BL7/NI ;NIP1;NIM1,NJ,NJP1,NJM1,NK;NKP1,NKMl 

HIP?2,NJP?2,NKP?2,NA,NAP1,NAM1,NB,NBP1,N8M1,KRUN,;NCHIP NJRA,NHWRP 
COMMON/BL12/ NHRITE;NTAPE ;jNTMAXO,NTREAL, TIME jSORSUM,ITER 
COMMON/BL14/ECOEF ,TINF CNT ,ABTURB ,BTURB,VISL ; VISHAX ,QCORRT ,PM1,PM200065100 
COMMON/BL16/ CONST1,CONST2,CONST3 »>CONSTS ,CONSTo>NT ,U0,H,UGRT ,BUOY ,00045200 
& | CPO,PRT,CONDO,VISO,RHOO,HR,TR,TA,DTEMP,THRITE,TTAPE, TMAX ,GC ;RAIRO0045200 
CCMMON/BL20/51611t(225,16,32),51612(225,16,32), SIG22(22516,232) 

>51615(22,16,52),51625(22,16,52),51622(22,16,22) 
CCMMON/BL22/ICHFB( 10) ,NCHPIt10),JCHP?PB(10 ),NCHPJ(t 10 ), KCHPB(C10), 
NCHPK( 10 ); TCHP( 10 ),CPS( 10), CONS! 10 ) WFANC10) 
COMMON/BL31/7 TOD( 22,10,32),ROD(22,10,32),POD( 22,16,5,32) 
»COD( 22,16,32 ),UOD( 225,165, 22 ),VOD( 225105, 22) ,NOD(C22,16,22) 
COMMON/BLZ2/ T(22,16,32).RCL225,10, 32 ),PC 22,106, 22) 
;:C(C225;10,32),U( 22510, 22), VC225,10,32 ,Ht 225165, 32) 
СОММОМ/В155/ TPD(22,165,32),RPD( 22516532) »PPD(22,10,32) 
»>CPD(22,16,32)3,UPD( 22,160,352 },VPD(22,16,32 ),WPD( 22 516532) 
СОММОМ/В154/ НЕІСНТ(22,16,52),КЕ0(22,16,521, 
5МР(22,10>521,5МРР(22,16,52),РР(22,16,52), 
DU(22,16,32),DV{22,10,32),DW(22,16,32 ) 
СОММОН/ВІ56/АР(22,16,52),АЕ(22,10.52),АМ(22,16,22),АМ(22,16,22), 
Һ5(22,10,52),АҒ(22,16>,2521,АВ(22,16,22), 
5Р(22,15>22),50(22,16,521,В1(22,16,521 
COMMON/BELS7/ VIS(22,10,32),COND(22,16,32 J NOD 22,16,32),RWALL( 579 )00047000 
»>CPHi22,16,32),HSZ(3,2),NHSZ( 22,100,352 ),RESORM( 95 ) 
COMMON/BLZ8/HTHCO,CX(12),CYC12),CZC(C 12) ;NTHC12,2 ) , TCOUP( 12) 


READ IN DATA TO INDICATE EITHER KRUN=0 OR 1 
КЕАО(5,ж) KRUN,MNCKIP МАВР ,МТКСО 


D IN DATA SET 1 - 6 DATA 
D(5,*) TMAX,TWRITE,TTAPE 


A 
tA 
И 
С 


READ IN DATA FOR HEAT SOURC 


READ (5,*) ]HS2(15,1)5,HSZ( 1,2), H32(2,1),H32( 2,2 ),H852( 3 ,1) ,HS82( 2,2) 
HRITE(6,20) H32(1,1),HS2( 1,2 5; H82( 2,1) yH22( 2,2) ;H82( 3,113, H82( 2,2) 


;DTIME 


E 


20 РОВМАТ (/,20Х,'НЕАТ SCURCE LOCATION IS IN THE VOLUME (NOH-DIME '; 
BHSICHAL WITH RESPECT TO RADIUS)’, 


ро 09 09 Po 


/5;5X,'FROM ',F8.4,' 
/»БХ» “ҒКОМ  ',F8.94,' 
/,;5X,'FROM  ',F8.96,' 


TO *'5F8.4,' 
TO '»58.4»' 
ТО” ";Ғ8:46 > 


1ο 


IN X-DIRECTION'; 
IN Y-DIRECTION', 
IH Z-DIRECTION';/) 


*00043700 
*00042800 
*00043906 
*00044090 
*00044100 
x00044200 


ж эе ЭЄЭєЭЄ HE HH HEH HHH HE HH HHH HHH IIE HE HE HIE HEH HEHE Э% E E E E EK HEH HEH HEH HH IH HHH XK HEE 3 3¢ 3¢ 3 ¢ 3¢ 3¢ + 3€ 3¢ 3¢ 00044200 


00064400 
00064500 
00044600 
00045700 
00044800 
00044900 
00045000 


00045400 
00045500 
00045600 
00045700 
00045800 
00045900 
00046000 
00045100 
00046200 
00046300 
00046400 
00046500 
00046600 
00046700 
00046800 
00046900 


00047100 
09047200 
00047300 
00047400 
00047500 
00047600 
00047700 
00047800 
00047900 
00048009 
00648100 
00048200 
00048200 
00048400 
00048500 
00048000 
00048700 
00048500 
00048900 
0004 9000 
00042100 


С #5. 


10 


READ IN DECK DATA 


IF (NCHIP.EQ.0) GOTO io 


PRINT * 
PRINT *,' 
DO 19 N=1,NCHIP 


THE REGION BOUNDED BY SOLID‘ 


READ (5,*) ICHPBIN), NCHPI(N),JCHPBIN ),NCHPJIN}) ,KCHPBIN), 
NCHPK(H) TCHP(N) | CPSIN),CONSIN),HFAN(N) 
WRITE (6,10) N,ICHPBIN) »NCHPI(N),JCHPBIN) ,NCHPJIN),KCHPBIN), 


19 CONTINUE 


16 


С #5. 
C 


110 


C 


С жж 


CONTINUE 


το. 


FORMAT (2X,'N- 
&' NCHPJ- '»12, 
&' CPS- “%,;Ғ8.Б,/, 


WFAN = 


NCHPKUN), TCHPLN )) CPSUN );y HFANUN ) ; CONSEN ) 
ICHPB- ',I2,' NCHPI* ',I2, ' 


",12, ΝΟΗΡΚΞ 16, 


',;.F12.5,' CONS-  ',F12.5,/) 


INPUT THERMOCOUPLE COORDINATE 


IN TERMS OF X( THETA), 


PRINT * 
PRINT *, ' 
PRINT ж 


DO 110 I=1,NTHCO 


YCRADIUS ) ; ZU PHI ) 


THERMOCOUPLE POSITION IN TERMS OF THETA, R, PHI' 


READ (5,*) CXII),CYCI)O,CZ(I) 
WRITE (6,%) I, CX(I),CY(1I),CZ(T) 


CONTINUE 


RE TURN 
END 


3C Jc 3€ 3€ 2€ 3€ € 3c m 3e € 3€ 963€ 3€ 9€ € JC 3E 3I€ 96 9€ 9c 9€ JC Je 9€ CC € JE X HHH HH HH HII HK HHH HHH HHI HH HH IHN HHH 


SUSROUTINE INIT 


ЈСНРВ= *,12, 
“ ТСНР- “,Ғ8.5, 


00049200 
00049300 
00049400 
00049500 
0006 9600 
00049700 
00049800 
00049900 
00050000 
00050100 
00050200 
00050200 
00050400 
00050500 
00050600 
00050700 
00050800 
00050900 
00051000 
00051100 
00051200 
00051300 
00051400 
00051500 
00051600 
00051700 
00051800 
00051900 
00052000 
00052100 
00052200 
00952500 
00052%00 
00052500 
00052600 


C 3939 HHA HE CK EE KE E E EE E E EEE E E E E E KE Pe E E € 93€ € 3€ E HE FE IE AE IE € IE IE FE SE IE FE SE IE IE SE IE EEE ¥ E HEH HH HHH 00052700 
o E E E E KE δά E ¥ E E KE KE KK E KE E E EE E E E XC E E E FE ¥ E E E E E CC E C ECCE E E E E 3E E EE E E 3€ ¢ €3€ 3¥ 3 3¢ 3¢ 3 € 00052800 
INITIALIZES THE FIELD AND CONSTANTS WITH RESPECT *00052900 
TO INITIAL START OR 


* KK KK KK KK KK HY Ж Ж Ж Ж ж ж 


THIS SUBROUTINE 


VARIABLES ARE 
TINE 
U9 


il fî con Hd H H OU HÁ H H H 


RESTARTING CAPABILITY. 


DIMENSIONLESS TIME 
CHARACTERISTIC VELOCITY Ge FI7sec ) 


CHARACTERISTIC LENGTH (RADIUS(9.6FT)) 


TEMP IN DEGREES EEEVIM 

TEMP IN DEGREES RANYKINE 

REFERENCE VISCOSITY (NOCNDIM) 
MINIMUM VISCOSITY (NONDIM) 
MAXIMUM VISCOSITY (NOMOIN) 

RADIUS IN CM 

REFERENCE CONDUCTIVITY 

INITIAL SMOKE CONCENTRATION 

POINT OF RADIATION IN J DIRECTION 
LOCATED ON THE INNER SOLID BOUNDARY 
HEAT TRANSFER COEFFICIENT 
DIMENSIONLESS HEAT TRANSFER COEF 
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%00052>000 
x00052100 
x00053200 
x00052200 
x00052400 
ж00052500 
x00053600 
x0005z700 
x00052800 
x00053900 
*00054000 
x00054100 
x00054200 
x00054200 
x00054400 
ж00054500 
ж00054600 


x CONST1 = USED TO NONDIMENSIONALIZE PRESSURE x00054700 
* RHOO - REFERENCE DENSITY x00054800 
* GC - GRAVITY CONSTANT *x00054900 
* BUOY = BUOYANTY FORCE CONSTANT *00055000 
> UGRT = PERFECT GAS LAW NONOIMENSIONAL CONSTANT*00055100 
ж СРО = КЕҒЕРЕНСЕ SPECIFIC НЕТ x00055200 
* NANRITE/ = NONOIMENSIONAL FORMS OF TWRITE ANO *00055300 
ж МТАРЕ TTAPE x00055400 
% MATRICES OF THE FORH x00055500 
x ..OD = DIMENSIONLESS PARAMETER AT OLD TIME *00055600 
* e = DIMENSIONLESS PARAMETER *00055700 
+ . PD = UPDATED DIMENSIONLESS PARAMETER *00055800 
+ WHERE THE PARAMETERS ARE *00055900 
* UVW = VELOCITY IN THETA, R , PHI DIRECTION *00056000 
% T,P,C z TEMP, PRESSURE, AND SMOKE CONCENTRATION*00056100 
* x00056200 
* DU ,DV,DZ = USED IN PRESSURE CORRECTICN SUBROUTINE *00056300 
* PP = CORRECTED PRESSURE (P') x00056400 
+ SU = SOURCE TERM *00056500 
ж SP = TERM AT P NODAL POINT FOR BOUNDARY x00056600 
ж CONDITIONS x00056700 
* AP = COEFICIENT AT NODAL POINT *00056800 
x AE ; AW , AN z CCEFICIENTS AT PTS EAST,HEST ;,NORTH, x0005e900 
x AS »AF ,AB SOUTH, FRONT, ANO BACK *00057000 
% SHP z RESIOUAL MASS SUMMATION OF NODAL POINT *00057100 
ж SMPP = LENGTH SCALE FOR TURBULENCE *00057200 
* CPM = MEAN SPECIFIC HEAT *00057300 
ж УІ5 т VISCOSITY *00057400 
% CON = CONDUCTIVITY MATRIX *00057500 
* NHSZ z WHEN THIS VALUE EQUALS ZERO, THERE IS *00057600 
* NO HEAT SOURCE LOCATED AY THE NODE *00057700 
* NOD = IF EQUAL TO ZERO, LIGUID %00057800 
% IF EQUAL TO ONE, SOLID *00057900 
- BE Е = BEGINNING AND ENDING NODAL POINT FOR «00058000 
+ ТЕЕ БОСГО Т ЧИЕ ОУК *0C0958100 
* REQ = CENSITY AT EQUILIBRIUM ж%00052200 
x МІРІ = КОСА POINT IM I PLUS 1 (OTHERS SIMILAR )00058300 
ж XC,YC,ZC = THETA, ,R,»PHI LOCATICH OF NOOAL POINT OF #00055400 
* A CENTER CELL %00С58Е00 
ж DXXC,DYYC = LENGTH AROUND THE CENTER CELL *000565600 
> Ec *00058700 
* XS ,YS ZS = THETA,R,PHI LOCATION OF NODAL POINT OF *00055809 
¥ A STAGGERED CELL *00055°00 
* DXxS,DYYS z LENGTH AROUND THE STAGGERED CELL *0005°000 
> 0225 *00059100 
+ Сх›СҮ›Сс2 = LOCATION OF THERMOCCUPLE IN THETA,R,PHI*0005°9200 
3€ 3€ 3€ 3e 3€ 9€ 9€ 9E 9€ 9€ 9€ 9€ 2e mn 3e 3€ 9E 9€ 3€ 9€ 3€ 9€ 9€ 9 3€ 9€ 9€ 9€ 9€ € 9€ 9€ E E 3E 9C XE COE EC E EX X90 € X E ex eee x *** * 000€ 59200 

СОММОН/Кч/»С(92),ҮС(92),2С( 921,Х51 95),Ү5(93),2519%), 00059400 

& ο ο ο οι οι οσο) σσ ο ουδ 55),DYYS51t93515D0225( 95] 0005°500 

COMMON/EL1/0X,07 ,0Z,VOL,DOTIME,VOLOT,THOT,TCOOL,P1,Q,QR 00059600 

COMMON/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,;,NK;NKP1,NKM1l 00059700 

&  ,NIP2,HJP2,HKP2 ,NA,NAP1,NAM1,NS3,NSP1,NBMl1,KRUN,HCHIP;,NJRA,NWRP 00059800 

COMHON/BL12/ NHRITE,NTAPE ,NTMAXO ,NTREAL, TIME,SORSUM;ITER 00059900 


COMMONH/BL16/HCOEF TÍHF,CNT,AS8TURB,;,BTURB, VISL , VISHAX ;QCORRT , PH1, PH200060000 
COMMON/BL16/ CONST1,CONST2,CONST3,CONST4 ,CONST6 ;NT;UO;H,UGRT;,BUOCY 00060100 
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С э 


& 


& 


& 


& 


& 


& 


& 
& 


& 
& 


& 


»51615(22,16,22),51625(22,10,521,51622(22,16,521 


COMMON/BL22/ICHPB(10),NCHPI(10),JCHPB(10},NCHPJ(10),*CHPB(10), 


NCHPK(10)},TCHP(101,CPS5(103,CONS( 10) ,WFAN( 10) 


COMNON/BL31/ TO0(22,16,323,ROD(22,16,32),POD( 22,16,32) 
»>COO0(22,10,32)},U00(22,16,32),VOD(22,16,32 ) ,MO0( 22,16,32) 


COMMON/BL32/ Т(22,16,52),К(22,16,52),Р(22,16,52) 


9€ 622516532) ,U( 22516532), V022 516532) W022 516532) 
COMMON/BL33/ TPO0(22,16,323,RPD(22,16,32),PPD(22,10,32} 
»>CPO0(22,16,32),UP0(22,16,32 )}.VP0(22,16,32),WPOl 22516532 ) 


COMMON/BL34/ HEIGHT(22,16,32),REQ(22,16,32), 


SMP (22,16532),SMPP(22,10,32),PP(22,16532), 


DU(22,16,32),DV(22,16,32 ),DW(225,165,32) 


COMMON/BL36/AP(22,10,32),AE(22,16532) »AWI 22 5,165,32),AN(22,16,32), 


А5(22,16,52),АҒ(22,16,52),АВ8(22,16,52), 
SP(225,16,32),5UC 22,16, 22 ),RIQ225165, 32) 


CPO,PRT,CONDO,VISO,RHOO,HR,TR,TA,DTEMP , THRITE,TTAPE , TMAX,GC,RAIROO060200 
COMHMON/BL20/516G11(22,165,32),351612(225,10,232 ),81622(22,16,22) 


00060300 
00060400 
00060500 
00060000 
00000700 
00060800 
00060900 
00061000 
00061100 
00061200 
00061300 
00061400 
00061500 
00061600 
00061700 
00061800 


COMMON/BL27/ VIS(C22,16,32),COND( 22,16, 22 ),NOD( 22,16, 32 J), RWALL(579 )00001900 


›»СРМ( 22,16,52 ),Н52(5 ,2 J »NHSZ( 22 516532) ,RESORM( 93 ) 
COMMON/BL38/NTHCO ,CX(12),CY¥(12),CZ(12),NTH(12,3),TCOUP( 12) 
COMMCN/BL29/ALEH,PCURVE ; CONSRA ;PCURM1 ;PSOUTH ,QCORR, PERROR 


DATA GRAV/32.17/ 


INTROOUCE GIVEN PARAMETERS 


TIME=0. 
TR=TA/1.8 
H=9.6 
ViSO=VISO/U0/H 
VISL=VISO 
VISMAX-400.*VISL 
HR=H*30.48 
CONDO=VISO/PRT 
РІса.жАТАМ(1.) 
ALEW = 1.0 
NJRA-15 


C THE KEAT TRANSFER COEFFICIENT IS IN BTU/HR/FT*x2/F 


HCONVz15E.0 
HCOEFzZECONV/(C2600.XCPO*RHOO*UO ) 
CC - 0.0 


CONST1:RHOO*UOXUO/(GC*14.696*164. ) 
COST 5=1.8/TÃ 

CONSTG=H¥39.48 

CO'I5Te-U0x20.48 

NTMAXO=0 | 


BUOY =GRAV*H/(U0*UO ) 

UGRTzUOXUO/(GCXRAIRXTA) 

TCOOL=1.0 

CONSRA=TAXTA¥TA/( RHOOXCPOxXU0*S5600. J¥1.714E-9 


WRITE(6,200) TR,CONDO,VISO,CPO,HR»,DTIME »HCONV 


132 


00062000 
00062100 
00062200 
00062300 
00062400 
00062500 
00062600 
00062700 
00062800 
00062900 
00065000 
00062100 
00062200 
00003300 
00003400 
00063500 
00063600 
00063700 
00062800 
09063900 
00063000 
00004100 
00064200 
00004300 
00064400 
00064500 
00004600 
00065700 
00064800 
00064900 
00065000 
00065100 
00065200 
00065500 
00065400 
00065500 
00065600 


200 FORMAT( SX, ‘THE REFRENCE TEMPERATURE AND THERMAL PROPERTIES' >/, 


C xxx 


C 


61 


зе 


& Zon, "Т = ',F10.G,'K5 CONDO = ',El12.6, 
& 55» "ҮЛ50 с ”,Е12.6»! СРО - "ЭЕ12.6, 

& /5;5X,'RADIUS 7» ',E12.6,' ΕΠ 

ἃ 7,5X%,'OTIME = ',E12.6, 

& /›5х›'НСОМУ = *,Е12.6,/) 


NWRITE=THRITE*XUO/DTIME/H 
NTAFE-TTAPEXUO/DTIMEZ/H 
PRINT OUT INPUT INFORMATION 


WRITE(6,61) (STAR,I=1,°90),KRUN,TMAX, TAHRITE »TTAPE ,NWRP 
FORMAT(///,90A1,/7,5X%,'KRUN =',I2,/,5X, 
6. "ТМАХ z',F8.5,' SECONDS' ,/5X, 'THRITE =',F8.3> 
ἃ ’ SECONDS‘ ,/,5X,'TTAPE =',F8.3,° SECONDS’, 
& /,5X,' NUMBER INTERVALS OF WRITING ON PAPER %, ІБ,/) 


INITIALIZE VARIABLE FIELD 


DO 220 J=1,NJP1 
DO 220 J=1,NIP1 
DO 220 К=1,МХР1 
ROOII, J K )šz1. 
RUZ,J,K)=z1. 
RPDLI,J,K)-1. 
UCO(I,J,K)20. 
Ut 1,J,K)-70. 
UPD(I,J,K)-70. 
VOC(I,J,KI=0. 


VTISA J=Û. 
VPD(1,J,K)20. 
HUE, J,K 1-0. 


WPO(I,J,K)-0. 
Нелер »J к \=0. 
PCO(I,J,KJ=0. 
Р:І,Ј,К }=0. 
РРО(1,Ј,К 1=0. 
СОЧ, Ј,К 20. 
DVI I,J, =0. 
Dt I ,J2,K)20. 
ἘΣ › УГ )-0. 
Seta oh SC. 
PP(2,J,K 3=0. 
EAPLUI,J,R 20. 
AnlI,J,K)-20. 
AECI,J,K)-0. 
PUOI U.K)s0. ` 
Polls st. )=0. 
AF(I,J,KIJ=0. 
AIT oJ Y 1-0. 
SMPI,J,K)70. 
SUHPPCI,J,K)z20. 
COND(I,J,K J=CONDO 
CPM(I,J,K)=1.0E0 
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00065700 
00065800 
00065900 
00066000 
00002100 
00006200 
00006300 
00066400 
00066500 
00066000 
00066700 
00066800 
00066900 
00067000 
00067100 
00067200 
00067300 
00067%00 
00067500 
00067600 
00067700 
00067800 
00067900 
00068000 
00068100 
00066200 
00068300 
00068400 
00008500 
00068600 
00068700 
00068800 
00008900 
00069000 
00269100 
00069200 
C0009300 
00059400 
00022500 
00009600 
00069700 
00069800 
00069900 
09070000 
00070100 
00070200 
00070300 
00070400 
00070500 
00070600 
00070700 
00070800 
00070900 
00071000 
00071100 


220 


С жж 


C CHANGE TO RECTANGULAR COORDINATES 


€ 


315 


405 
402 
410 


C αχ 


TOO(I,J.K Iz1.0E0 
T(I,J,K )7TCO( I,J,K) 
ΤΡΟ( 1) ΚΚ ΙΞΤΟΩ( ΤΚ) 
COO(I,J,K)-CO 

CC I,J,K)z:COO!I,J,K) 
CPOLI,J,K)-COD(I;J,K) 
МН52(1,Ј,К )=0 
NOD(I,J>K )=0 

CONTINUE 


DETERMINE THE POSITION OF HEAT SOURCE 


DO 300 I=2,NI 
DO 500 J-25NJ 


XX-YCGJ )«COS( XCCI)) 
YY=YC(J)%wSIN(XC(I)) 


МН52(1»./>163г1 
NHSZ(I,J,17)=1 

FORMAT (2%,10(14¢X%,14¢,2X%,14)) 
GOTO 360 

CONTINUE 

CONTINUE 


DEFINE THERMAL PROPERTIES OF DECK AND SOLID 


IF (NCHIP.EQ.0) GOTO 410 
OO 402 М=1,МСНІР 
IB=ICHPD(N) 
IE=IB+HCHPI(N)-1 
JE-ZJCHPB(GH) 
JE-ZJBSENCHPJCN) -1 
KBZKCHPO(N ! 

ΓΕ .CHFK1(H)-1 

09 405 I=IB,IE-1 

CO 465 J=JB,JE-1 

DO 405 K-KB,Kz-1 
CONO(I;,J,K)-CONOO*CONS(N) 
CPMLI,J.K)-CPOX*CPS(N) 
NOO(I,J,K)-1" 

CONTINUE 

CONTINUE 

CONTINUE 


FOR CONTINUING RUN, READ DATA FROM TAPE OR DISK 


CHECK TO SEE IF IN HS CONTROL VOLUME, IF SO SET NHSZ-1 
IF iXX. LT.RSZt1;1).0R.XX.:GT.KHSZt1;211 GOIO 310 
IF (YY.LT.HSZUC2;,1).OR.YY.GT PSZ(2;>2)) GOTO 510 


134 


00071200 
00071300 
00071«4C0 
00071500 
00071600 
00071700 
00071800 
00071900 
00072000 
00072100 
00072200 
00072300 
00072400 
00072500 
00072600 
00072700 
00072800 
00072900 
00073000 
00075100 
00073200 
00073300 
00073400 
00073500 
00072600 
00073700 
00073800 
00073909 
00074000 
00074100 
00074200 
00074300 
00074400 
00074500 
00074600 
00074700 
00074800 
002974900 
00075000 
00075100 
00075200 
00075300 
00075400 
00075500 
00075600 
00075700 
00075800 
0C075900 
00076000 
00076100 
00076200 
00076300 
00076400 
00076500 
00076600 


9997 


Όσοι .EQ. 1) GO ТО 9997 
GO TO 15 
READI8,END=9998 ) 


00076700 
00076800 
00076900 
00077000 


& TIME ,NTMAZX0,TOD;,ROD;UOD,;VOD;,HOD.POD,CPM,COND,VIS,QRNET,ITERT,GCOROO077100 


&RT ,PH1,PM2 XX XX XX XX XX XX GNI ,NJ;NK;NIP1,NJP1,NKP1,NIMI,NJMl 


& 


2598 


15 


13 


coe 


ς «κκ 


210 


ς «κκ 


,NKM1,XC,YC,20,X5,YS,25,0XXC,DYYC,DZZC,DXX5,DYYS,D2ZS 
GO TO 9997 
CONTINUE 
REHIND 8 
CLOSE (8) 
WRITE( 6 ,% INTMAXO 
CONTINUE 


DEFINE HEIGHT OF NODE POINTS AND COMPUTE HYDROSTATIC 
EQUILIBRIUM DENSITY REQ(I,J>K) 


DO 13 K=1,NKP1 

DO 15 I-1,NIP1 

CO 13 J-1,NJP1 

DHYzYC( J)XxSIN(UXCCI ) )*SINCG2ZC(CK 2) 
EZIGHT(I,J,K)-zDHY 

CONTINUE 


DO 229 J=1,NJP1 

DO 229 I=1,NIP1 

CO 229 К=],МКР1 
AAAAZ-BUOY*UGRT*HEIGHT(I;J,K) 
REQ(I,J,K)U-ZEXPUAAAA) 

IF(ERUN «ΝΕ. 0) GO TO 229 
RPD(I,J,K )OEREQ( I,J,K)/TPDOCI J;K) 
ROD(I,J,K J=RPO(T,J,K) 

Ri I,J,K }=RPD(I,J>K) 

CONTINUE 


INITIALIZe U,V,T,R»P FIELD 


DO 210 K-1,NXP1 

DO 210 J-z1.NJP1 

DO 210 I=1,NIPI1 
TíÍI,J,K)-TCO(I; JSK) 
CCI,J,K )-COD( I, JS,K) 
RCZ,J,K IZRODEIISJ,K) 
U(LI,J,K )ZUOD( I; Jo K ) 
VCI ,J,K)ZVOD(II,J,K) 
WCI ,J,K )2HODUI ;JSK) 
P(I,J,K )=POD(L,J,K) 
CONTINUE 


FOLLOWING IS FOR DETERMINING THE THERMOCOUPLE POSITIONS 


DO 5000 N=1,NTHCO 
DO 5901 I=1,NIP1 
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00077200 
00077300 
00077400 
00077500 
00077600 
00077700 
00077800 
00077900 
00078000 
00078100 
00078200 
00078300 
00078400 
00078500 
00078600 
00078700 
00078800 
00078900 
00079000 
00079100 
00079200 
00079300 
00079400 
00079500 
00079600 
0007°700 
00079800 
00079900 
00080000 
00080100 
00080200 
00080200 
00080400 
00080500 
00020600 
09050700 
09020800 
00020900 
00061000 
00021100 
00021200 
00081500 
00081400 
00081500 
00081600 
00081700 
00051800 
00081900 
00082000 
00082100 


5001 
5002 


5003 
500% 


5005 
5006 


5000 


С жж 
E 
ж 


IF (XCCI).LT.CX(N).AND.XC(I#1).GE.CX(N)) GOTO 5002 
CONTINUE 
II=I 


DO 5003 J-1,NJPI1 

IF (YC(J).LT.CY(N).AND.YC(J#1).GE.CY(N)) GOTO 5004 
CONTINUE 

JJ=J 


DO 5005 K=1,NKPI1 

IF (2C(K).LT.CZ2(N).AND.Z2C(K4+1).GE.CZ(N}) GOTO 5006 
CONTINUE 

KK =K 

ΝΤΗ(Ν»1)511 

NTHON, 2 J=JJ 

NTHON, 3 J=KK 

CONTINUE 


RETURN 
END 


HEM E E A E E E EK E E E EH E HHH HIE IH HIE CR Pe E KC E E EE COE CC EXE EXEC OCIO € EK 
SUBROUTINE CALVIS 


33€ 3€ X: 3€ 3€ 3€ € 3€ € Xx 3 3€ X 3€ € € € € 9€ y 9 9€ € 3€ € € C XX€ 3€ 9€ JC 3€ 9E 3€ 3€ 3€ 3C 9€ 3C 9E E C 9C 9€ 3€ 9€ C 9E3XC 3C ECCE XC KE 


THIS SUBROUTINE CALCULATES THE TURBULENT VISCOSITY AND UPDATES* 
THe VISCOSITY MATRIX κ 


3% 565536536365 FE XK E E E ¥ 565655363: 3963656 >< 56565653636 Э 563236 363656 3656 ЭЕЭСЭСЗЭС 365656935636 Э<3С56 36365636 56363636 3363 563% 


С жж 


С ххх 


8 


% 


8 
& 
& 
& 
& 


& 


СОММОМ/К4а/Хс(95),ҮС( 92),2С(92),Х5(92),Ү5(95),25(92), 
DXXCt 93 ),DYYCt 953 ),D2Z2C( 92 ), DXX SI 93 ),DYYSC93 ),D22S( 93) 
COMMON/BL7/NI,NIPi,NIMI1,NJ,NJPl,NJMl,NÉ,NKP1,NKMI 
NIP2HJP2,NKP2,NA;,NAP1,NAMl1,NPD,NBP1,N3H1,KPUN;NCHIP ,HJRA ,NHWRP 


00082200 
00082300 
00082400 
00082500 
00022600 
00082700 
00082800 
00082900 
00083000 
00083100 
00083200 
00083300 
00033400 
00083500 
00083600 
00083700 
00083800 
00083900 
00084000 
00084100 
00085200 
00084300 
00084400 
00084500 
00084600 
00084700 
00084800 
00084900 
00085000 
00085100 
00085200 
00085200 
00085400 
00055500 
00085600 


CONMON/BL14/HCOEF > TINE ,CNT ,ASTURB,BTURB,VISL,VISMAX ,CCORRT ,PM1 »PM200085700 
COMMON/BL1I6/ CONST1,CONST2 ,CONST3 ,CONST¢ ,CONSTo,NT ,U0,H,UGRT ,BUOY ,00085300 
& CPO,PRT,CONDO,VISO,RHOO,;HR,TR,TA,DTEMP,THRITE, TTAPE, TMAX , GC RAIROO085900 


CO!IIMON/BL32/ TC22,165,22 );RC225,16,32) ;PC22,16,22) 
:,C(225;16,52!,U( 22,10, 22), VC 22,195, 32) ,H( 22516532) 
COMMON/BLZ4/ REIGHT(C2+.10,52),REC(22,16,32),5 
SMP(225,10,52),SMPP( 22,165,352 ),PP( 22,16,232), 
DUI 22,16,32),DV( 22,10, 32) )04C22,16, 22) 
СОММОМИВЕ Зо/АР( 22 „10,52 ),АЕ( 22,10,52 ),АМ‹ 22,16,52 ),АМ 22,16,52), 
А5(22,15,52),АҒ(22,16,22),А48(22,16,52), 
5Р(22,16,22),50(22,16,52),к1(22,16,52) 


00055000 
00080100 
00026200 
000862300 
00056400 
00086500 
00056600 
00056700 


COMMON/BL37/ .VIS(225165,352),COHD(L 225,10, 22 );NOD(t 22,16, 22 );RHALL(CB79)00086800 


>СРМ(с<2,16,52),552(5,2),МН52(22,16,52),КЕ5ОКМ( 95) 


CALCULATE LOCAL SHEAR AND VISCOSITY VIS(I,J,K) 
SPECIFY LOCAL TURBULENT LENGTH SCALES SMPP(I,J,K) 


DO 611 K=2,NK 
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00086900 
00087000 
00087100 
00087200 
00087300 
00087400 
00087500 
00087600 


cc 
ος 


101 


102 


С жжх 


С жу 


КР2=К+2 

КР1=К+1 

KM1=K-1 

KM2=K-2 

CO 611 Ј=2,№Ј 

JP27J*2 

JP1-zJ*1 

JH17J-1 

JM22J-2 

DO 611 I=2,NI 

ІРггіж2 

IP1=I+1 

ІМІзІ-1 

IMZ=I-2 

IF {I.EQ.2) IHM2=NIH1 
IF (I.EQ.NI) IP2=3 

IF (NOD(I,J,K).EQ.1) GOTO 611 


CENTRAL LENGTH OF THE SCALE CONTROL VOLUME 


DXP1zXLtIP1;,J,K,0,0) 
DXI сх((І »J»K 50,0) 
DXM1-7XLUIM21,J;,K,0,0) 


DYPl-YL(I,JP1,K,0,0) 
DYJ =YL(I,J »>K,0,0) 
DYM1=YL(I,JM1>K,0,0) 


D2P1:2L(1,J;,KP1,0,0) 
DZK =ZL(I,J,K 0.0) 
02111=21(1,Ј,КМ1,0,0) 


IF (J.EQ.2) DYS=DYS/2. 
IF (K.EQ.2) D2B-D223/2. 
IF (J.NE.NJ) GOTO 101 
JP2=JP1 

DYN-DYN/2. 

IF (K.NE.NK) GOTO 102 
KP2=KP1 

02ғ-02Ғ/2. 

СОЧТІНУЕ 


CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME FOR T 


DXE =XLCIP1,J,K,0,13 
ОХИ =XL(I  ,J,K,0,1) 


DYN z:YL(I,JP1;K,0,2) 
DYS -YL(I,J >»К,0,2) 


DZF -ZLtI,J,KP1,053) 
DZB =2ZL(I,JyK »0,3) 


CACULATE DV/DX,D2V/DX2,DU/DX,D2U/DX2,DW/DX AND D2n/DX2 
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00087700 
00087800 
69057506 
00088000 
00088100 
00088200 
00088300 
00088400 
00088500 
00088600 
00088700 
00088800 
00088900 
00089000 
00089100 
00089200 
00089300 
00089400 
00089500 
00089600 
00089700 
00089800 
00089900 
00090000 
00090100 
00090200 
00090200 
00090500 
00090500 
00090600 
00090700 
00090800 
00090900 
00091000 
00091100 
00091200 
00091300 
00091400 
00091500 
00091600 
00091700 
00921800 
00091900 
009092000 
00092100 
00092200 
00092300 
00092400 
00092500 
00092600 
00092700 
00092800 
00092900 
00093000 
00093100 


602 


С жж 


606 


С *xx 


DUDX=(U(IP1,J,K)-U(I,J,)K ))/DXI 
DUDXWzO.E*(ULIPI,J2,KR )2-U! IML , J, K ) )J/DXH 
DUDXEZO.5*x(ULIP2,J,K)-UtI  ,J,K ))/DXE 
DeUDX2-z( DUDXE -DUDXH )/DXI 


DVDXHz0.5x*x( V(I,JPl1,K )JeV(I,J,K )-VCIM1, JP1,K )-VC IM1, JK ) /DXMH 
DVDXE-0.5*( V(LIP1,JPl,K))*V(LIP1 >J yK )-VCI,;JP1;K)-VCIJ,K ) )/DXE 
DVDX-0.5*( DVDXE *DVOXH ) 

D2VDx2= (DVOXE-DVDXW )/DxXI 


DHDXHz0.5*(HLI J;)KP1)*4WCI J)K)-HCIM1,J,;KP1)-HCIM1,; J,K ) )/DXH 
DHDXE-z0.5*(WHCLIP1,;J,KPl)*WCIP1,;J;K )-HCI,,J,KP1)-WH(CI,J,K))/DXE 
DHDX2z0.5*x( DADXE * DNDXM ) 

D2WDX2=  ( DHDXE - DHDXH )/DXI 


CONTINUE 


CALCULATE DU/DY ,DCU/DY2,DV/DY ,D2V/DY2,DW/DY AND D2W/DY2 


DVDY=(V(I)JP1,K)-V(I,)J,)K 2))/DYJ 
DVDYS=0.5%(V(1,JP1,K)-V(I,)JH1,yK))ZDYS 
DVDYNz0.5xtVCI,JP2,K)-VCI,J  ,K))/DYN 
D2VDY2=(DVDYN-DVDYS J/DYJ 


DUDYSz0.5*(ULCIP1,J,Kk O*«UC I, J;K )S-UL IP1; JM1,K )-UC 1  JM1,K ) )/DYS 
DUOYN-0.5*(UCIP1; JPl1,;R )J*UCI,JPl1,K )-UCIP1, J,K )-UC I, J;K ) )/DYN 
DUDY=0.5*(DUDYN+DUDYS } 

D2UDY2=  (DUOYN-DUDYS )/DY J 


DWDYSz0.5*(WLI,J,KPlO*W(I,J,K)-HCI,JMl,KPl)-HWHCI,JM1,K ))/DYS 
DHDYNz-0.5*(tWCI,JPl,KPl)4WHCI,JP1,K )-HC I  J)KP1)-WHCI J;K ))/DYN 
DHDYz0.5*t D&DYN*DAhDYS) 

D2WDY2-  (DWOYN-DWDYS )/DY J 


CONTINUE 

CALCULATE DU/D2,D2U/DZ2,DV/D2,D2V/DZ2,DW/DZ AND D2W/DZ2 
DAOZ-IWLI,J,KP1)-Ht I,J,H ))/DZK 
DHOZF-0.5*(WUI,J,KP2)-H(I,J,K  ))/DZF 


DHDZBz-0.5*(WHELI,J,KPl)-HOI,J,KM1))/D2B 
D2W02Z2-7t DVIDZF -DHDZB )/DZK 


DVDZBz0.5*( V(LI ,JPl1,K )*VCI,J,K )-VL I JP1, KM1)-VCI J; KM1))/DZB 
DVDZFz0.5x*( V(LI,JPl1,KP1)0*VCI,J,;KP1)0-VCI,JP1;K )-VC I JK ))/DZF 
DVDZ=0.5*( DVDZF+DVDZB ) 
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00093200 
00093300 
00093400 
00093500 
00095600 
00093700 
00093800 
00095900 
0009%000 
0009%100 
00094200 
00094300 
00094400 
00094500 
00094600 
00094700 
00094800 
00094900 
00095000 
00095100 
00095200 
00095300 
00095400 
00095500 
00095600 
00095700 
00095800 
00095900 
00096000 
00090100 
00096200 
00096300 
00096400 
00096500 
00096600 
00096700 
00096800 
00096900 
00097000 
00097100 
09097200 
00097300 
00097400 
C0097500 
00097600 
00057700 
00097800 
00097900 
00093000 
00098100 
00098200 
00098300 
00098400 
00098500 
00098600 


С «κκ 


С жж 


611 


110 


DeVD22-  (DVDZF-DVDZB I/DZK 


DUD2B8z0.5x(UCIP1,J,K )&UCI; J;K ) -UCIP1, J, KM1)-HCI  J;KM1))/DZB 
DUDZFz0.5*(tUCIP1,J,KPl)«UCI, J;KP1)-UCIP1, J;K )-UC 1  J,K ))/DZF 
DUDZ=0.5*( OUDZF +DUDZB } 

020022= (DUDZF-DUDZB)/DZK 


DRDXz(CCRCIP1,J,K)-REQCIP1,;J,K) )-C RCIM1,J,K )-REQC IM1,J,K )))/ 
& (ОХЕ +0ХМ ) 
DRDY=((R(I,JP1,K)-REQ(I,JP1,K))-(R(I,JM1,K)-REQ(I,JH1,K)))/ 
& (DYH+DYS ) 
DRDZz(CRCI,J;KP1)-REQ(I;,J,KP1))-CRCI,J,KM1)-REQ(CI;J;,KM1)))/ 
& (DZF*DZB) 
DRDGA-zSIN(CZC(CK ) J*C SINCXCCI ) )«DRDY «COS ( XC( I ) J*DRDX) 
& +COS(ZC(K ) ) жркрг 


CALCULATE RICHARDSON NUMBER 
STRAIN-DUDYs*g2 *DVDX32«DWDX**2 «DVDZ23e2 «DRDYsex2 «DUDZ*xe 
DDO2 = SQRT( DUDY*DUDY +DUDX*DUDX+DUDZ*DUDZ+DVDY *DVDY +DVDX*DVDX+ 
& DVDZ*DVD2Z*DHOX*DWDX«*DHDY *DHOY +DHOZ*DWDZ ) 
IF(ODO?C.EQ.0.)GO TO 600 


CALCULATE TURBULENT LENGTH SCALE SMPP(I;J) 


00098700 
00098800 
00098900 
00099000 
00099100 
00099200 
00099300 
00099400 
00099500 
00099600 
00099700 
00099800 
00099900 
00100000 
00100100 
00100200 
00100300 
00100400 
00100500 
00100600 
00100700 
00100800 
00100900 
00101000 
00101100 
00101200 


SMP123zSQRT( CCUCLIP1,; J;K O*UCI, J,K )1x0.5 exe «CCVCI, JP1,K 1*VC I, J,K ))00101300 


& 0.5I1**x2*CCHCI, J;KP1l])4HKHCISJ,K ))*0.5)xx2 )/DDO2 
SMPP12-:DDC2 /SQRT(tD2UDX2*xDZUDX2 *D2UDY 2xD2UDY2 

& *«D2UD22*D2U0O22*D2VDX2*x02VDX24*4D2VDY2xD2VDY2*D2VD22*D2VD22* 
& D2HDZ2*D25022*D2HDX2*xD2HDX2*D2WDY 2xD2HDY2 ) 
SMPPL(I,J,K)SCNT*(CSMP123*SMPP12)*,5 

RI(I,J,K }=-BUOY*ORDGA/( RI I,J,K }*STRAIN } 
ABRIPR-ABTURB*RI(I;,J,K)0/PRT 

IFCABRIFR .LT. 0.) GO TO 600 

IFCAERIPR& .EQ. О.) СО ТО 613 

GO TO 610 

VIS(I,J,KJ=SVISL 

GO TO 611 

VISCI,J,K )7VISMAX 

GO TO 611 

VIS(I,J,K !-VISL*RCOI ,J,K )*SMPPCI,J,K JSMPPCI,J,K )*wSGRT(STRAIH)/ 
& (BTURB*ABRIPR) 

IF(VISII,J;,K) .GT. VISHAX) VIS(I,J, K )=VISHMAX 


- 
TT 


CONTINU 


` 


CC 110 I=1,NIP1 

DC 110 Jz1,NJP1 
VISCI,J,NKP1)-zVIS((GI;,J,NX) 
У15(1,Ј,1 J=VIS(I,J,2 ) 
CONTINUE 


DO 120 J=1,NJP1 
DO 120 K=1,NKP1 
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00101400 
00101500 
00101600 
00101700 
00101800 
00101900 
00102000 
00102100 
00102200 
00102300 
00102400 
00102500 
00102600 
00102700 
00102800 
00102900 
00102000 
00102100 
00102200 
00103300 
00163400 
00103500 
00103600 
00103700 
00103800 
00103900 
00104000 
00104100 


120 


125 


140 


C xx 


С жж 


8 


8 


& 


& 


& 


& 


& 
& 


VIS(NIP1,J K )XVISI(2 J K) 
VIS(1 J K)=zVIS(HI,J yK) 
CONTINUE 


DO 130 Kz1.HKP1 

DO 130 I-1,NIPI1 
VISCISNJP1,K !-VIS(CIS;NJ,;K)! 
УІ5(І,2 ›К)=/15(1,5 ,Қ) 
УІ5(1,1 ›К)=У15(1,2 yK) 
COHTINUE 


00 135 К=1,16 
ΚΚΞΝΚΡΙ-Κ 

DO 135 I-1,NIP1 

DO 135 J-1,NJP1 
МІЅ(І,Ј,КК )=УІ5(І,Ј,К) 
CONTINUE 


DO 140 I=1,NIP1 

DO 140 J-1,NJP1 

DO 140 K=1,;NKP1 

IF (ROD(I,J i K).EQ.1) GOTO 140 
COND(I,J,K)=zVIS(I,)J,)K )¿PRT 
CONTINUE 


RETURN 
END 


HHH HEH HEH HHH HK HHH HH HHH HHH IER IIE E E KC HCE E E EE JEJE C EE ECCE EE EXEC ECCE 
SUBROUTINE CALT 

є E E EE E KE E E ЭЄЭЄЭЄЗЄ E E E E E E E EE E E JE FE FE JE e IE IE ME ME ЭЕ JE IE XE E XC C CE C E EK E E E EK EI FE 
COMMON/RS/XCE (93 ),YC0 93 3,201 93.),XS( 9S 3, YS(93),28( 93}, 

DAnCtU9S 1,DYYCC OS )5DZZC( 935 )DXXSLC93 S DYYS 00305 DZ75(93) 
COMMON/BL1I/DxX ,DY ,DZ2,VOL,DTIME »,VOLDT , THOT ,TCOOL ,PI,Q,QR 
COMMNON/BL7//NI ,HIP1,NIM1,NJ,NJP1,NJH1 NK KK P1 ,NF-.H1 

ӘМІР2»МӘР2У,ККР2,МА,МАР1»МАН1,МЗ,МВР1»МЗМ1ІЭКЕКОМ,МЕНІР»МӘКА»МИЕР 
COMMON/BL12/ HHRITE,NTAPE,NTMAXO ;NTREAL, TIME SORSUM;,ITER 


00104200 
00104300 
00104400 
00104500 
00104600 
00104700 
00104800 
00109810 
00104900 
00105000 
00105100 
00105110 
00105120 
00105130 
00105140 
00105150 
00105160 
00105170 
00105200 
00105300 
00105400 
00105500 
00105600 
00105700 
00105800 
00105900 
00106000 
00106100 
00106200 
00106300 
00106400 
00106500 
00106600 
00106700 
00106800 
00106900 
00107000 
00107100 
00107200 
00107300 


COMMON/BLIG/HCOEF , TINE CNT ,ABTURB,BTURB, VISL,VISMAX ,QTORRT , PM1,PM200107400 
COMMON/B5L1e/ CONST1,CONST2,CONST3,CO! I3T6 ,CONKST6 ,HT ,UO, H; UGRT ;BUOY ,00107500 
& | CPO,PRT;CONDO,VISO,RHOO;HR,TR,TA,DTEMP,ThRITE; TTAPE, THAX , GC ,RAIROO107600 


COM/,ON/BL2Z2/ICHPB(10),NCHPI(10),JCHPEC10 ) JNCHPJC10 ) ;KCHPB(C10); 
HNCHPKC10),TCHPC10 ),CPS( 10) CONS (1D ) ,HFANC10) 
COMMON/BL31/ TOD(22,16,22),ROD(22,16,32 ), POD( 22,165,532) 
CODL22,16,22),U0231 22510, 22), VO2€ 225165, 32 ),W00(C 22,165 32) 
COMMON/BLZ2/ TL 22,19, 22 );RU225;16, 22 ) ;PEU225,165 22) 
:€(225,165,22),U( 22,16,32 ),V( 22,16, 32),W1 22516, 32) 
COMMON/BL33/ TFD(225,16,32),RPD( 225;16,32 ),PPD( 225,16,32) 
; CPD(22,16,32 ),UPD( 225,16, 32) , VPD(U 225165 32) ,WHPD(C 22516532) 
COMMON/BL324/ HEIGHT(22;,16,32),REQ(22,16,232);, 
5МР(22,16,32),5МРР(22,16,22)»РР(22,16,52);, 
DU(22,16,32},DV122,16,32),DW(22,165,32 ) 
COMMON/BL36/AP(225,190,32),AECL225165, 32 ) ,AN(225,165,32 ),AN(22,16532), 
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00107700 
00107800 
00107900 
00108000 
00108100 
00108200 
00108300 
00108400 
00108500 
00108600 
00108700 
00108800 


& A9(2251655 205 AFU2C516,22 )},ABC 22516532}, 00108900 
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& SP(22,16,32}),SU(22,10,32},RI(22,10,32) 00109000 
COMMON/BL37/VIS(22,16,32 ),COND( 22,10,32),NOD(22,16,32),RWNALL( 579) 00109100 
& »>CPM(22,16,32),HSZ( 352) »NHSZ( 22,105,323} ,RESORM( 92) 00109200 
0010°300 

C xx% CALCULATE COEFFICIENTS 00109400 
00109500 

DO 100 K=2,NK 00109600 
KP2=K+2 09109700 
KP1=K+1 00109800 
KM1=K-1 00109900 
KM2=K-2 00110000 
DO 100 J=2,NJ 00110100 
JP2=J+2 00110200 
JP1=J+1 00110300 
J1112J-1 00110400 
JM2*J-2 00110500 
CO 100 I=2,NI 00110600 
IP2=I+2 00110700 
IP1=I+1 00110800 
ІМІсІ-1 09110900 
IM2-I-2 00111000 
ο ЕО.217 IMZ=NIM1 00111100 
IF ( I.EQ.NI) IP2-3 00111200 
00111300 

C CENTRAL LENGTH OF THE TEMPERTURE CONTROL VOLUME 00111400 
00111500 

DXPlzXLLIP1;J,K,0,0) 00111600 
DXI -ХІ(І ,./.К,0,0) 00111700 
DXM1=XL(IM1,J,K5,0 5,0) 06111800 
00111900 

DYP1=YL(I,JP15,K,050}) 00112000 
DYJ zYLUI,J ,К,0,0) 00112100 
DYM1=YL(1I,JM1,K,0,0) 00112200 
00112300 

02Р1=21(1,Ј,КР1,0,0) 00112400 
DZK -2L(I,J),K 1,0,0) 00112500 
DZH1-2L(I,J,;KHM1,0,0) 00112000 
00112700 

С эзе SURFACE LENGTH OF THE CONTROL VOLUME 00112800 
00112900 

DXN=“L(I,JP1,K,0,2) 00112000 
}О»,о=х{ (1 ›.) »Κ»0»2)} 00113100 
DMF=XL(I,J,KP1,0,3) 00113200 
DX3-2XLUI;J5K 505,3) 00115300 
00113400 

DYFzYLUI,J,KP1,0,2] 00112500 
DYB=YL(I,J K 055) 00113600 
DYE=YL(IPI,J,K,0,1 }) 00113700 
DYNZYL(I  ,J5K50,1) 00113800 
00113900 

DZEz2LLIP1,;J,K,0,1) 00114000 
DZHz2LUI  ,J25,K5051) 00114100 
DZN=ZL(I,JP1,K,05,2) 00114200 
DZS=2L(I,J  5,K50,2) 00114300 


C x*x 


C www 


CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME FOR T 


DXEE-ZXLCIP2,J,K,0,1) 
DXE 7XLULIP1,J;,KR,0,1) 
DXW zN*NL(I Ј,К,0,1,1) 
DXKWZXL(IM1,J,K,051) 


DYNN=YL(I,JP2,K,0,2) 
DYN =YL(I,JP1,K5,0,2) 
DYS =YL{I,J ,К,0,2) 
DYSS=YL(I,JM1,K5,0,2) 


DZFF=ZL(I,J,KP2,0,3) 
DZF =ZL{I,J,KP1,0,3) 
DZB -ZLII,J;,K 053) 
DZBB-ZL(I,;,J,KM1,0,3) 


DEFINE THE AREA OF THE CONTROL VOLUME 


DXYFzDXF*xDYF 
DXYB-DXB*DYB 
D'Y ZE-DYE*DZE 
DY ZW=DYWXDZW 
DZXN=DZN*DXN 
DZXS=DZS*OxXS 


VOL -DXI*DYJ*DZK 
VOLDT-VOL/DTIME 


ZXOYN=DZXN/DYN 
ΖΧΟΥΞΞΟΖΣ5/ΡΥ5 
AYOZF -DXYF/DZF 
XYOZB=DXYE/DZB 
¥Z0ME =DYZ=/7DxXeE 
YZOXWzDYZri/DXHW 


GN-(GRCI,J,KOXDYPY*RUI,JP1,K )*DYJ )7C DYP1*4DYJ) 
CS-URLI,J,K ÓxDYMI*RUI,JMI,K O*DYJ )7L DYM1*DYJ) 
GE-URLI,J,K )*DXP1*RCLCIP1, J; K )JXDX I )/t DAZP13DXI) 
CGHz(RUIT , JK O*XDXHI«RCIM1,J,K )* DAI )/Ut DZif1* DXI ) 
GF=(R(1,)J,K)%wCZP1+R(I,)J,KP1)wC2K )Z/(DZP1+DZF.) 
S-(RI,J,K )xDZM1I*RCI, J,KM1 )* D2ZK )/( DZH1*4DZK ) 


CN-GN*VLLUI,JPl,K *DZXN 
C5s65xVLI,; JT KU XD2ZXS 
CE-GE*ULIP1, J,K)XDYZE 
CW-GW*ULCI  ,J,K J*DYZH 
CFzGFXxMCI,J,KP1)XxDXYF 
CB=GBS*H(I,J,K )*DXYB 


CONDNz1./((1./CONDCI, J;K)XDYJ«*1./COND(CI; JP1,K *DYP1)/C( DYP14DYJ)) 
CONDSz1./1((1./CONDCI;; J;K JXDYJ*1./COND(LI;, JHM1,K OXDYM1 )/(t DYM1*4DYJ ) 
CONDE-1./((1./COND(CI, J;K JXxDXI*1./COND(CIP1, J,K O*XDXP1)/( DXP1*DXI)) 


142 


00214400 
00114500 
00114600 
02114700 
00114800 
00114900 
00115000 
00115100 
00115200 
00115200 
00115400 
00115500 
00115600 
00115700 
00115800 
00115900 
00116000 
00116100 
00116200 
00116300 
00116400 
09116500 
00116600 
00116700 
00116800 
00116900 
00117000 
00117100 
00117200 
00117300 
00117400 
00117500 
00117600 
00117700 
00117800 
00117900 
00118000 
00118100 
00118200 
00118300 
00118400 
00118500 
00116000 
00118700 
02118800 
00118900 
00119009 
0011°100 
00119200 
00119300 
00119400 
00119500 
00119600 
00119700 
00119800 


801 


805 


806 


807 


CONDW-1./((1./COND(UI, J;K JOXDXI*1./COND(CIM1, J,K 1xDXM1)/CDXM1*D0XI )) 
CONDFz1./(C 1./7CONDCT, J,K )XDZK*1. /CONDCI ,J,KP1 1xDZP1)0/(DZP1*DZK)) 
CONDS=1./((1./COND(I,J,K J¥DZK4+1./COND( I ; J; KM1 ) ж02М1 )/(0021+02к )) 


COHDH1-2XOYN*CONDN 
CO.DS1-22NOYS*CONDS 
COHDE1-YZOXEXxCONDE 
CONDI ZYZOXWX*CONDH 
CONDF 1-XYOZF*CONDF 
CONLB1-zXxYOZBX*CONDB 


CEP=(ABS(CE J+CE )XDXP1¥DXI/(DXEX(DXE+DXW ))/8. 
CEM=( ABS(CE )-CE )¥DXP1*DXI/( DXE*( DXE+DXEE ))/8. 
CWP=( ABS(CW)+CW XDXM1*DXI/( DXW*( DXW+DXWW ) 78. 
CWM=( ABS( CW -CHXOXM1*XOXI/( DXN*(DXW+DXE ))/8. 


CNPz(ABSCCN )$£CN O*DYP1x0DYJ/U DYN*UDYN*DYS ) )/8. 
CNMz(ABSCLCNY)-CNOxDYP1xDYJ/ZUCDYNXUDYN*DYNN ) )/8. 
CSPz(ABSUCS )4C S )*DYMIXDYJ/U DYS*( DYS*DYSS ) )/8. 
CSM-(ABS(CS )-CS )*DYM1IxDYJ/U(DYS*CDYS*DYN ))/8. 


CFP=(ABS(CF )*CF )XDZP1xD2K/C DZF*( DZF*DZB . ))/8. 
CFM=(ASS(CF )-CF JXDZP1*OZ2K/( DZF¥( DZF+DZFF ))/8. 
CBP-(AESUCB ) CB )*02M1*«0Z2r./U DZB*C DZB *D2B8 ) )/8. 
CBMz(ABSUCB )-CB J«D2ZM1*D2ZK/(CDZB*(CDZB*DZF  ))/8. 


AECI,J,K)2-.5*DXI/DXEXCE «€CEP*CEMX( 1. *DXE/DXEE V eCWHMXxDXH/OXE 
AHCI,J,K)2 .5*DXI/DXW*CH*CF(M*CHPX(1.€*DXn/DXH^l ) +CEP*DXE ZDXH 
AHCI,J,K)2-.5*DYJ/DYN*CN*CNP *CHM*(C1,. €DYN/DYNN )4 CSMXDYS/DYN 
ASLI,J,K)2 .5*xDYJ/DYS*CS*CSM*CSPx*( 1. *DYS/DYSS 3} +CNPXDYN/DYS 
AFUI,J,K])-2-7.5x02K/02ZF*CF«CFP«CFM*(C1. *DZF/DZFF 2)CEMXx02B/DZF 
AB(I,J yK )z= .5*DZK/DZBX*CB*CBHM«*CBPx(1.«*028/DZ2DBB )4CFPx0OZF/DZB 


pee =-CEMXDXE/DMEE 
AEERZAEE*TPDUIPZ,J,K)*CPHCIP2,J,K) 
CONTINUE 


3 AVWlNz-CHPXDXW/DXHWH 


RHARZAHFRTPDOIM2 ,J,K Y*CPMCIM2,J,K) 
CCHTINUE 


IF (J.LT.NJ) GOTO 805 

ANN=O0, 

AHHRZO, 

GOTO 806 

ANNZ-CHMX*DYN/DYNN 
AHHRZANN*TPDUI ,JP2,K )*CPMCIJP2,K) 
CONTINUE 


IF (J.GT.2) GOTO 807 
ASS=0. 

ASSR=0. 

GOTO 808 
ASS=-CSP*DYS/DYSS 
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00119900 
00120000 
00120100 
00120200 
00120300 
00220400 
00120500 
00120600 
00120700 
00120800 
00120900 
00123110 
00123120 
00123130 
00123140 
00123150 
00123160 
00123170 
00123180 
00123190 
00125191 
00123192 
02125193 
00122194 
20125195 
00123196 
00123197 
00123198 
00123199 
00123200 
00123201 
00122202 
00123203 
001235204 
00123210 
00125200 
00123400 
02123500 
00123600 
00125700 
00122800 
00125900 
00124000 
00124100 
00124200 
00124300 
00124400 
00124500 
00124600 
00124700 
00124800 
00124900 
00125000 
00125100 
00125200 


С 
C 
C 


803 


809 


810 


811 


812 


ASSR=ASS*TPD(I,)JH2 K )*CPH(1,JHM2 5K ) 
CONTINUE 


IF (K.LT.NK) GOTO 809 

AFF=0. 

AFFR=0. 

GOTO 810 

AFFz-CFM*DZF/DZFF 
AFFRzZAFFX*TPD(I;,J,KP2 )*CPM(I;,J,KP2) 
CONTINUE 


IF (K.GT.2) GOTO 811 

АВВ=0. 

ABBR=0. 

GOTO 812 

ABB - -CBPx02ZB/DZBB 
ABERzABBXTPD(I,;J,KM2 )*CPM( I,J, KM2) 
CONTINUE 


5244-52-22 222524545524 2252252255255-52- 
45422 НӨ НӨӨ 


KH 


900 


901 


902 


904 


905 


MODIFICATION FOR DECK BOUNDARIES 
CONTINUE 

IF (NODCIM1,J,K).EQ.0) GOTO 901 
AWW=0.0 

AWNR=0.0 


CONTINUE 
IF (NOD(IP1,J,K).EQ.0) GOTO 902 
AEE-0.0 
АЕЕК-0.0 


CONTINUE 
IF (NO2(I,JM1,K).EQ.0) GOTO 903 
ASS=0.0 
ASSR=0.0 


CONTINUE 
IF (hOD(I,JP1,K).EQ.0) GOTO 904% 
ANN=0.0 
ANHR=0.0 


CONTINUE 

IF (NCD(I,J,KM1).EQ.0) GOTO 905 
АЗВ=0.0 ` 

A~BBR=0.0 


CONTINUE 
IF (NOD(I,J,KP1).EQ.0) GOTO 906 
AFF-0.0 
AFFR=0.0 
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00125300 
00125400 
00125500 
00125600 
00125700 
00125800 
00125900 
00126000 
00126100 
00126200 
00126300 
00126400 
00126500 
00126600 
00126700 
00126800 
00126900 
00127000 
00127100 
00127200 
00127300 
00127400 
00127500 
00127600 
00127700 
00127800 
00127°00 
00128000 
00128100 
00128200 
001282300 
00128400 
00128500 
00128600 
00128700 
00128800 
00128900 
00129000 
00129100 
00129200 
00129200 
00129400 
00129500 
00129600 
09129700 
00129800 
00129900 
00150000 
00150100 
00150200 
00130300 
00130400 
00120500 
00130600 
00130700 


900 CONTINUE 00130800 
00130900 

С FHFHESFESET KERR KK SRR TKS HFK FR HRSFKKKKRFKKRSKSRSRFS ERK TRARKRF 00131000 
ӨСЕ е ЕЕЕ ЕЕЕ ЕЕЕ ТЕЗІ ЕЕЕЕЕЕЕЗ ЕЕЕ ЕЕЕ 00121100 
00131200 

AP(I,JyK)=(AE(I,J)K IYAH(I,J yK YAH(I,J K )YAS(I,J,K) 00131300 

& +АРК({ЇЙТ,.),К!+АВ(Ї,.),К )+АЕЕ+АИН+АМНЧ+А5$5$+ДЕРЕ+АЕВ )*СРМ(Ї,.),К)О0О0151900 

& +CONDE 1+CONDW1+CONDN1+CONDS1+CONDF1+CONDB1 00131500 
00151600 

AE(I,J,K D=AE(I,J,K J¥CPM(IP1,J,K )*CONDE1 00131700 

Anti I,J K V=AWN(I,J,K J¥CPMCIMN1,J,K }+CONDH1 00131800 
ANCI,J,KOZSAN(I,J,K IXCPMCI,JP1,K )+COHDN1 00131900 
AS(I,J,K J=AS(I>J,K J¥CPM(I ,JM1,K 1#CONDS1 00132000 
AF(I,J,K J=AF(I,J,K IXCPM(I,J,KP1 )+CONDFI 00132100 
AB(I,J,K J=AB(I>J,K JXCPM(I5J,KM1 )+CONDB1 00132200 
00122300 

SP(I,J,K)=-ROD(I ,J,K JX¥VOLDT*CPM(I,J,K) 00132400 
SUCI,J,K)2 RODI(I;J,KOXVOLDT«*TOD(I;J,K )9*CPM(CIS;J,K) 00132500 
SU(I,J,K J=SU(I,J,K J+AEER+ AWNR+ANNR+ASSR+AFFR+ABBR 00132600 

100 CONTINUE 00132700 
00132800 

C 3x TAKE CARE OF 8.C. THRU AN,AS,AE,AW,AF,AB,SP AND SU 00122900 
00133000 

С Hex RADIUS DIRECTION 00133100 
00133200 

DO 500 I=2,NI 00133300 

DO 500 Kz2,NK 00133400 
SP(I,2,KJ=SP(I,2,K J+AS(I,2,K) 00133500 

CC SP(I,2,KJ=SP(I,2,KJ-AS(I,2,K) 00123600 
CC SU(I,2,K )=SU(I1)2 ,K1+2.0%AS(I,;2,K)*TPD(”(I,1,K) 00122700 
SPCI »NJ,K J=FSPLI,NJ OK )- ANCI;HJ,K) 00133800 
AS(1I,2,K)=0. 00134000 
AN(CI,NJ,K J=0. 00124100 

500 CONTINUE 00154200 
00134300 

C «αχ CYLIC CONDITIONS 00134400 
00136500 

DO 6050 J=2,NJ 00134600 

DO 600 К=2,МК 00124700 

SULZ ,Ј,К )=5002 ,J,)K)*AH(2 9 Κ)ΧΤί1 »J5K) 00135800 
SULNI,J,K)-7SU!INI,J,KO)*AEC(CNI,J,KO*TGNIP1,; J,K) 00134900 

RMU2 ,J5. 0720.0 00125000 
AECHI;J,K)20.0 00135100 

600 CONTINUE 00135200 
00135300 

ς κκκ END OF SPHERE 00125400 
д 00125500 

DO 700 I=2>NI 00125600 

DO 700 J-2,HJ 00125700 
SP(I,J,2 )=SP(I,J,2 J#AB(I,J,2) 00125800 
SP(I,J,NK J=SP(I,J,NK J+AF (I >J>NK) 00135900 
AB(I,J,2)=0. 00136000 

AF(I, JNK )=0. 09136100 

700 CONTINUE 00136200 
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жж 


500 


‚зе 


115 


111 


HHH 


310 
HHH 


REX 


ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 


DO 300 K=2,NK 

DO 300 J=2>,NJ 

DO 300 I=2>NI 
RPELI,J,K)-APLI,J,K)-SPUIL ; J;K) 
CONTINUE 


VOLUME HEAT SOURCE INPUT 


VOLT=0.0 

DO 113 I-2,NI 

DO 113 J=2,NJ 

00 1135 К=16,17 

IF (NHSZ(I1;)J,K).EQ.0) GOTO 115 
DXI =XL{I »J5K,0,0) 
DYJ =YL{I,J ,К,0,0) 
DZK =ZLII,J,K >0,0) 
VOL -DXI*DY J*DZK*H*H*H 
VOLT=VOLT+VOL 
CONTINUE 


DO 111 I=2,NI 

DO lll J=2,NJ 

00 111 К=1©,17 

IF (NHSZ(I,J,K).EQ.0) GOTO 111 
DXI =XLII  ,J2,K,05,0) 

DYJ ΞΥ {1 »Κ»0»0) 

02к =21(1,Ј,К ,0,0) 

QQCO=Q*h/( U0*CPO*xRHOO*TA ) 
VOL-DXI*DYJ*02K 
SULI,J,KI-SULCI, J,K )* VOLXQQQ/VOLT 
CONTINUE 


RADIATION INTO THE WALL 


DO 310 K=3,NKM1 

DO 310 I-2,NI 

DXN =XL(I ›»МЈВА,К,0,2) 
DZN -2L'I,NJRAo,K ,0,2) 
DZ*N-DZN*DXH 
II=(K-2)w%w(NI-1)+I-1 


SULT » NIRA ,K JSSUCI >NIRA,K J-RWALLO IIT )*DZXN 


CONTINUE 
END OF RADIATION 
SOLVE FOR T 


CALL TRID (2,2,2;NI,NJ;NK,T) 
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00136300 
00136400 
00156500 
00136600 
00130700 
00136800 
00136900 
00137000 
00137100 
00137200 
00137300 
00137400 
00137500 
00137600 
00137700 
00137800 
00137900 
00138000 
00138100 
00138200 
00138300 
00138400 
00138500 
00138600 
00138700 
00138800 
00138900 
00139000 
00139100 
00139200 
00139300 
00139400 
00139500 
00122600 
00139700 
00139800 
00139900 
00140000 
00140100 
00140200 
00140300 
00140400 
00140500 
00140501 
00140505 
00140504 
00140600 
00140700 
00140800 
00140900 
00141000 
00141100 
09141200 
00141300 
00141600 


r` 
` 


© 


xxx% RESET TEMPERATURE AT Rz0.0 AND END OF SPHERE 


83 
81 


7% 


KEK 


84 


KEK 


89 


жж“ 


KF 


00 81 K=1,NKP1 

AYT=0.0 

DO 82 I=2,NI 
AVT=AVT+(T(1,;)2,K)/NIM1) 
CONTINUE 

DƏ 83 I=1,NIP1 

TOI, 1,K -AVT 

CONTINUE 

CONTINUE 


DO 74 I=1,NIP1 

00 7% Ј=1,МЈРІ 

HDI UJ,;1J)-TLIS d, 2)) 
T(1,J,NKP1)=T(I, J, NK ) 
CONTINUE 


FOR SURFACE HEAT EXCHANGE HITH SURROUNDING 


DO 84 I-2,NI 

CO 84 K=2,NX 

DYJ-YLCISNJ,K,0,0) 
TCI,NJP1,K)z2(2.0*CONDCI,NJ;K X*TCI ,NJ,K )/DYJ*HCOEFX*TINF )/ 
& ( HCOEF *2. Ox CONDCI ;NJ,K )/DY J) 

CONTINUE 


FOR CYLIC CONDITION 


DO 80 J-1,HNHJP1 

00 20 К=1,МКРІ 
T(1,JyK)=T(NI J,K) 
*(CHRHIP1,J9,K ):T(25, J, K) 
CONTINUE 


RETURN 
END 


E E E FE E E YF KC KC FC FC E KC XK EK ¥ FC E XK x FC E XC E FE XC JC FC ХХХ ХХХ‏ ا ج چو و ا مھ کو جج جو جا جج چ 


SUBROUTINE CALC 
3€ 3€ 3€ X XJ X Jc X E JEE Pe PE ЭЕ ЭЁ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ Ж Э Эё ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЁ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЕ ЭЁ ЭЕ 3 HEHE HEH 


сомМон/Ка/ХС( 95 ),ҮС(92),2С(95),Х5(92),Ү5(92),25(92), 


& DXXC( 93) ,DYYC(.931,0ZZC1 93} ,DXXS1 93 ),DYYS( 93 ),DZ2S( 93 ) 


COMMON/BL1/D%,DY,02,VOL»,DTIME ,VOLOT, THOT ,TCOOL»,PI,Q,QR 
COMHON/BL7/NI ;,HIPl;NIM1,NJ,NJPl,NZJM1,NK;,NKP1,NKM1 


&  ,NIP2,NJP2,HNKP2,NA,NAP1,NAMl,;NS,NBP1,NBHMl;,KRUN;NCHIP ;NJRA ; NHRP 


COMMON/BL12/7 NWRITE »NTAPE ,NTMAXO »NTREAL ; TIME ; SORSUM;ITER 


00141500 
00141600 
00141700 
00141800 
00191900 
00142000 
00142100 
00142200 
00142300 
00152400 
00142500 
00142600 
00142700 
00142800 
00142900 
00143000 
00143100 
00143200 
00143300 
00143400 
00142500 
00142600 
00142700 
09143800 
00143900 
00144000 
00144200 
00144400 
00144500 
00144600 
00144700 
00144800 
00144900 
00145000 
00145100 
00145200 
00145300 
00145400 
00145500 
00165500 
00145700 
00165800 
00165900 
00145000 
С0146100 
00146200 
00146300 
00146400 
00146500 
00146600 
00146700 
00146800 


COMMON/BL14¢/HCOEF ; TINF SCNT ,ABTURS ;BTURB , VISL »>VISMAX,QCORRT »PM1 »PM200146900 
COMMON/BL16/7 CONST1,CONST2 ,CONS7S »CONST4¢ ,CONST6 ,NT ,U0,H,UGRT BUOY ,00147000 
ἃ CPO,PRT,CONDO,VISO,RHOO,HR,TR,»TA,CTEMP,TWRITE »TTAPE » TMAX,GC »RAIROO14¢7100 
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C 3** 


& 


& 


& 


& 


& 
& 


& 
& 


& 


COMMON/BL22/ICHPB(10),NCHPI(10),JCHPB(U10O ! ,NCHPJ(C10 ) ,KCHPB(10); 


NCHPK(10),TCHP(10),CPS(10),CONS(10),WFAN(10) 


COMMON/BL31/ TO0(22,16,32),RO0(225;10, 32), PO0( 22516532) 


»>COC(22,16,32),U00(22,16,32),VOD(22,16,32 ),WOD( 22,16,32 ) 


COMMON/BL22/ TC22516,32) ,R( 22510532) 5P( 22510532) 
:€(225165,32),U( 225165, 322, VC 22516532 1,6 22516532) 
COMMON/BL33/ TPD(225,1965,32) ;RPDt 22516, 32 );PPDL 22510, Z2) 


»>CP0(22,16,32),UPD(22,10,32),VPD(22,16,32),WPD(22,165,32) 


COMMON/BL34/ HEIGHT(22,16,232),REQ( 22516,3232), 
SMP(L225,16,52),SMPP(C22,16,22) ;PP( 22510532), 
DUC225;16,32),0V(225165,32),DHC 22516532) 


COMMON/BL36/AP(225,;165,32),;AEL 22516532) ,AH( 225165, 32 ), ANC22,165, 32), 


А5(22,16,52),АҒ(22,16,52),АВ(22,16,22), 
SP(22,16,32),SU(22,16,32),RI(22,16532) 


COMMON/BL37/VIS(22,16,32),COND(22,16,32 ),NO0(22,16,32) ,RWALL( 579) 


›»СРМ( 22,16,32) ,Н52(5,2 ),МН52( 22,10,32 ),ВЕЅОВМІ 95 ) 


COMMON/BL39/ALEW,PCURVE ,CONSRA ; PCURM1 ;PSOUTH ;QCORR ; PERROR 


CALCULATE COEFFICIENTS 


00 100 К-2,МҚ 


КР2=К+2 
КРІ=К+1 
KH1-K-1 
KM27K-2 


DO 100 J-2,NJ 


JP2-2J*2 
JP1zJ*1 
JM1*J-1 
JM2=J-2 


DO 100 I-2,NI 


ІР2=1+2 
ІР1=1+1 
IM1=I-1 
IM271-2 


DESCI-EQ.2)] 


IM2zNIMI 


IF (I.EQ.NI) IP2-3 


CENTRAL LENSTH OF THE SCALE CONTROL VOLUME 


DXPlzXLCIP1,J,K,0,0) 


DXI -XL(i 


5h 5050) 


DAMI-ZALCIMI1,;J,K,0,50) 


DYPF1-*:YL(I;,JP1,K,0,0) 


DYJ =YL(I,J 


>К>0,0) 


DYM1L=YL(I,JM1,K,0,0) 


OZP1=ZL(I,J,KP1;,0,;0) 


DZK :21(2,.5К 


»0,0) 


02М1=21(1,2Ј,КМ1,0,0) 


SURFACE LENGTH OF THE CONTROL VOLUME 


DXN-XLUI;JP1,K,0,2) 
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00147200 
00147300 
00147400 
00147500 
00147600 
00147700 
00147800 
00147900 
00148000 
00148100 
00148200 
00148300 
00148400 
00148500 
00148600 
00148700 
00148800 
00148900 
00149000 
00149100 
00149200 
039149300 
00149400 
00149500 
00149600 
00149700 
00149800 
00149900 
00150000 
00150100 
00150200 
00150300 
00150400 
00150500 
00150600 
00150700 
00150800 
00150900 
00151000 
06151100 
021512700 
00151300 
00151400 
00151500 
00151600 
00151700 
00151800 
00151900 
00152000 
00152100 
00152200 
00152300 
00152400 
00152500 
00152600 


С жж 


C xxx 


DES-ALCI,J .К,0,2) 
OXFEXL(I,J,KP1,0,3) 
OXB=XL(I,J,K 90,3) 


OYF=YL(I,J,KP1,0,3) 
DYB-YL(UI,J,K 053) 
DYE=YL{IP1,J,K,0,1) 
DYN-YLII ,Ј,К,0,1) 


OZE=ZL(IP1,J,K,0,1) 
DZH-ZLUII ,Ј,К,0,1) 
DZN=ZL(I,JP1,K,0;2) 
025=21(1,Ј ‚К,0,2) 


CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME FOR T 


DXEE-XLCIP2,J,K,0,1) 
DXE =XL(IP1,J,K,0,1) 
OXW =XL(I »J5K5051) 
DXHH-XL((IM1,J,K,0,1) 


CYNN=YL(T,JP2,K,0,2) 
DYN -YL(I,JP1,K,0,2) 
DYS -YL(I,J .К,0,2) 
DYSS=YL(I,JM15K,0,2) 


OZFF=ZL(I,J,KP2,0,3) 
OCF =ZL(I,J,KP1,0,3) 
DZB =ZL(I,J,K »0,3) 
D2ZBB-ZL((I,J,KM1,0,3) 


DEFINE THE AREA OF THE CONTROL VOLUME 


DXYF =OXF*DYF 
DXYB-DXB*DYB 
DY2ZE-DYExCZE 
DYZVH-DYW«2ZH 
OZXH=OZN®OXN 
DZXS-DZS*DXS 


VOL-DXI*DYJ*DZK 
VOLDT -VOL/2TIME 


Z7. 0OYN-7DZXN/DYN 
EXDOYS-DZXS/DYS 
XYOZF-DXYF/DZF 
XYO28-DXYB/D2B 
YZOxE=DYZE/DXE 
YZ0Xr1=DYZrU/DXH 


GN=(R(I,J,K)wDYP1+R(I,JP1,K)%DYJ)/(DYP1+DYJ) 
GS-CROI,J,K PDYMI*RUI,JM1,K )*DYJ)/CDYM1*DYJ) 
GE=(R(I,J,K )J*DXP1*RCIP1,J,K )*DXI )/( DXP1*DXI ) 
GHzURUI,J,K )*DXM1*RUIM1, J,K )* DXI )/( DZM1*DXI) 
GFz(RCI,J,K)XDZPl4RUI,J,KP1)x*DZK )/LDZP1*DZK ) 
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00152700 
00152800 
60152900 
00153000 
00153100 
00153200 
00155300 
00153400 
00153500 
00152600 
00153700 
00153800 
00152900 
00154000 
00154100 
00154200 
00154300 
00154400 
00154500 
00154600 
00154700 
00154800 
00154900 
00155000 
00155100 
00155200 
00155300 
00155400 
00155500 
00155000 
00155700 
00155800 
00155900 
00156000 
00156100 
00156200 
00156300 
00155400 
00156500 
00156600 
00152700 
00150500 
00156900 
00157000 
00157100 
00157200 
00257300 
00157400 
60157500 
00157600 
00157700 
00157800 
00157900 
00158000 
00158100 


801 


802 


803 


804 


GBzURCI;, J,K )&DZM1*RCGODI , J;KM1 )*DZK )/C DZH1*DZK ) 


CN=GN*V(I,JP1,K )9*DZXN 
CS-GS*V(I,J »ΚΧΌΖΧ5 
CEZGEXULIP1,J;,K )*DYZ2E 
CHzGH*ULCI  ,J,K )*DYZA 
CFzGFXH(CI,J,KP1)x*xDXYF 
CBzGBxHW(I,J,K —)xDXYB 


CONDN-z1./(C 1./CONDCI,; J;K )xDYJ* 1./CONDC I , JP1,K J*DYP1)/C€ DYP1*4DYJ)) 
CONDS-1./(C 1./CONDECI, J;K )*DYJ*1./COND(C I; JM1, K JXDYM1 )/( DYM1*4DYJ)) 
CONDE=1./((1./COND(I,J,K JXDXI+1./COND(IP1,J,K )¥DXP1 I/( DXP1+DXI ) ) 
CONDH=A1.Z(0(1./COND( I ,J,K J*¥DXI+1./COND(IM1,J>,K J*DXM1 )/( DXM1+DXI )) 
CONDF=1./((1./COND(I,J,K }*DZK4+1./COND(I ,J,KP1 J¥DZP1 J/( DZP1+D2K ) } 
CONDB=1.⁄/((1.ZCOND(I,;J )K)%wDZK+1.ZCOND(I, J )KHM1)*xDZH1)Z/(DZH1+DZK )) 


CONDN1 =ZXOYN*CONDNXALEW 
CONDS1=ZXOYSXCONDS*ALEW 
CONDE 1=Y ZOXEXCONDE*ALEW 
CONDWL=YZOXhK*CONDWN*xALEW 
CONDF1zXYOZFX*CONDF*ALEH 
CONDB1-zXYOZBXxCONDB*ALEH 


CEP=( ABS(CE J)+CE )*DXP1XDXI/( DXEX(DXE+DXW ))/8. 
CEM=(ABS(CE J-CE }®DAP1*®DXI/( DXEX( DAE +DXEE )I/8. 
ChP=( ABSECW ) $ CH )XxDXMI1X*DXI /CDXH*(CDXV*DXHW))/Z8. 
CHM7 ( ABSCCHO)-CHOXDXMIXDXI/GDXH*(DXH*DXE  ))/8. 


CNPz(ABSCCNO CN OxDYP1xDYJ/CDYNXCDYN*DYS ))/8. 
CNM-(ABSUCN) -CN )*DYP1xDYJ/CDYN*CGDYN*DYNH) )/8. 
CSPz(AESICS ) «CS Ix*DYH1xDYJ/CDYS*Ct DYS*DYSS ) 78. 
CSHE(CABSICS )-CS )*DYMYXDYJ/CDYS*CDYS*DYN 0978. 


СЕР-(АВС(СЕ ) 4CF )*DZP1* DZA/CDZFX*(CDZF *«DZB. ))/8. 
CFM-CABSLUCF ) -CF J«DZP1*DZK/UCDZFX*CDZF *DZFF ))/8. 
CBPz( ABSICB ) *CB !1*LZH1*DZK/t DZB*( DZB*DZBB) )/8. 
CBM=( ABSCCE )-CE )xDZH1x*DZK/((GDZB*CDZB*DZF. ))/8. 


AECI,J,K }=-.5*DMI/DME~CE+CEP+CEM*( 1. +OXE/DXEE t +CWM*XDXW/DXE 
AWCI,J,K)2 .5*DXI/DXH*CH*CHM*CHPX*(1. +DXH/DXMWA )+CEP%DXE ZDXNH 
ANCI,;J,K)-2-.5*x0YJ/DYH* CH«CNP *CHMx*(C1. *DYN/DYNN O) 4CSM«DYS/DYH 
AO(I,J,Kk !- .b*DYJ/DYS*CS*«CSM*CSPx(t 1. *DYS/DYSS )4CNP*DYN/DYS 
AFLI,J,K)2-.5xDZK/DZF*CF *CFP*«CFM*t1.*DZF/DZFF )«CBM«D2ZB/DZF 
ABCI,J,K)72 .5xDZK/DZBzCBE*CBHM«*CBPXx(1. *«DZB/DZBB ) qXCFPxDZF/DZB 


AEE=-CEM*DXE/DXEE 
AEER-AEEXCPD(IP2,J;,K) 
CONTINUE 


AWWz -CHPXDXH/ZDXHH 


АНКЕ =АИНЖСРО(ІМ2,Ј,К) 
CONTINUE 
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00158200 
00158300 
00158400 
00158500 
00158600 
00158700 
00158800 
00158900 
00159000 
00159100 
00159200 
00159300 
00159400 
00159500 
00159600 
00159700 
00159800 
00159900 
00160000 
00160100 
00160200 
00160500 
00160400 
00162700 
00162800 
00162801 
00162802 
00162805 
00162804 
00162805 
00162806 
00162807 
00162808 
00162809 
00162810 
00162811 
00162812 
00162813 
00162816 
00162815 
00162816 
00162817 
00162818 
00162819 
00162820 
00162821 
00162822 
00162823 
00162830 
00162900 
00163000 
00163100 
00165200 
00163300 
00163400 


OOO 


805 


806 


807 


808 


809 


810 


811 


Siz 


IF (J.LT.NJ) GOTO 805 
ΑΝΝΞΟ. 

ANNR=0. 

GOTO &06 
ANN=-CNM*¥DYN/DYNN 
ANNR=ANN*¥CPD(I ,JP2,K ) 
CONTINUE 


IF (J.GT.2) GOTO 807 
ASS=0. 

ASSR=0. 

GOTO 808 
ASS=-CSP*DYS/DYSS 
ASSR=ASS*=CPD(I,JM2,K) 
CONTINUE 


IF (K.LT.NK) GOTO 809 
AFF=0. 

AFFR=0. 

COTO 810 
AFFz-CFMX*DZF/D2FF 
AFFRZAFFXCPD(I,J,KP2) 
CONTINUE 


IF tK.GT.2) GOTO 811 
ΑΒΒΞΟ. 

ABSR=0. 

GOTO 812 
АВр--СВРж02В/02В8 
ABBR-ADBBXCPDLI ,J,KM2) 
CONTINUE 


Tn*nTHTRRARRUERHHUSERRTRRHTISRSTRREDZISSSASRTTRRAURAERRRSAASASETTES 
;---:-.--τ-:-::.:-:πτταλ.ο...ζο 


жж 


900 


901 


902 


903 


MODIFICATION FOR DECK BOUNDARIES 
CONTINUE 

IF (NODt IM1,J,K).EQ.0) GOTO 901 
ARKW=0.0 

AWWR=0.0 


CONTINUE 
IF (HODL IP1,J9,K).EQ.0) GOTO 902 
АЕЕ=0.0 
AEER=0.0 
CONTINUE 
IF (NOD(I,JM1,K).EQ.0) GOTO 903 
ASS-0.0 
ASSR=0.0 


CONTINUE 
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00163500 
00162600 
00163700 
00163800 
00163900 
00164000 
00104100 
00164200 
00164300 
00164400 
00164500 
00164600 
00164700 
00164800 
00164900 
00165000 
00165100 
00165200 
00165300 
00165400 
00165500 
00165600 
00155700 
00165800 
00165900 
00166000 
00166100 
00166200 
00166300 
02166400 
00166500 
00156600 
00166700 
00166800 
00166900 
00167000 
00167100 
00167200 
00107200 
00167400 
G0167500 
00167600 
00167700 
02167800 
00167900 
00168000 
00108100 
00162200 
00168300 
00168400 
00168500 
00168600 
00168700 
001068800 
00168900 


904 


905 


906 


C frt 
С tat 


100 
С жж 


С эз 


ες 


500 


C xxx 


IF (NOD(I,JPl,K).EQ.0) GOTO 904 
ANN=0.0 
ANNR=0.0 


CONTINUE 
IF (NOD(I,J,KM1).EQ.0) GOTO 905 
ABB=0.0 
АБВК-0.0 


CONTINUE 

IF (NOD(I,J,KP1).EQ.0) GOTO 906 
AFF=0.0 

AFFR=0.0 

CONTINUE 


SRHFRKRARFFREK SKS RSKKR RSH HTK KRRRKRF FRR SKK RRS SH RKR RRS 


HHETHMHHATHAHAHA HHH EH THREE HH ERAT ASUHAH ETHER He 


АР(1,Ј,К )=(АЕ(1,Ј,К)+АМ(І,Ј,К)+АМІ,Ј,К)+А5(1,Ј,К) 
& +AF(I,J,K I4ABlI »JK JtAEE +ANW+ANNtASS+AFF +ABB ) 
é +CONDE1+CONDW1+CONDN1+CONDS1+CONDF 1+CONDB1 


AE(I,J,K IZzAE(I,J,K)+CONDE 1 
AWII »J5K J=AW(T »J,K ) t CONDH1 
ANCI,J,K)-AHCISJ,KO)*CONDNI 
AS(I,J,K)SASCI,J,KO)«CONDSI 
AF(CI,J,K J=AF(I ,J,K )+CONDFI 
AB(I,J,K J=ABCI,J,K)+CONDB1 


SP(I ,J,K J=-ROD(I >J>K J*¥VOLDT 

SU(I1,J,K)= ROD(I,J,K)%VOLDT*TOD(I,J,K) 
SU(I,J,K)=SU(I,J),K)+AEER+ARHR+ANHR+ASSR+AFFR+ABBR 
CONTINUE 


TAKE CARE OF B.C. THRU AN,AS,AE,AK,AF 5A8,SP AND SU 
RADIUS DIRECTION 


DO 500 I=2,NI 

DO 500 K=2,NK 

SP( I 92 9K )Ξ5ρί1 ›2›К J+AS(I ›2,К ) 
SP(I,2,K)-SP((I,2,K )-ASCIT, 25K) 

SULI,,2,K )SUC I,2,K )*32.0*ASC I ) 2, K JXCPDCI 1, K) 
SPEIj,HJ,K)-SPCI;NAOSK 1-ANCI,NJSK) 
SUCI;NJ,K)SSUCLI;NAJ,K)*2.XCPDCI ;NJP1;,K )*ANCI;NJ,K) 
А5(1,2,К )=0.. 

AN(I,NU,KI=0. 

CONTINUE 


CYLIC CONDITIONS 
DO 600 J-2,NJ 


DO 600 Kz2,NK 
SUL »J»K)J=SU2 yJ,K )+*ANM( 2 yJ yK )%*C ( 1 »J5K) 
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02169000 
00169100 
06169200 
00169200 
00169400 
00169500 
00169600 
00169700 
00169800 
00169900 
00170000 
00170100 
00170200 
00170300 
00170400 
00170500 
00170600 
00170700 
00170800 
00170900 
00171000 
00171100 
00171200 
00171300 
00171400 
00171500 
00171600 
00171700 
00171800 
00171900 
00172000 
00172100 
00172200 
00172300 
00172400 
00172500 
00172600 
00172700 
00172800 
00172900 
00173000 
00173100 
00173200 
00173300 
00173400 
00173500 
00173600 
00173700 
00173800 
00173900 
00174000 
00174100 
00174200 
00174300 
00174400 


600 


С жж 


700 


500 


C xxx 


113 


111 


SU(NI,J ,K)=SU(NI;J)K )MAE(NI,J)K)*C(NIP1,J,K) 
ARIZ ,J,)K)z0.0 

AE(NI,J,K)=0.0 

CONTINUE 


END GF SPHERE 


DO 700 I=2>,NI 

DO 700 J=2,NJ 

SPEKI,J,2)-SPf 1,29,2)*AB( 1,J,2) 
SP(I,J,NK J=SP(I ,J,NK J4AF( I ,>J,NK ) 
AB(I,J,2 }=0. 

AF(I,J,NK)=0. 

CONTINUE 


ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 


DO 300 K=2,NK 

DƏ 309 J=2,NJ 

DO 300 I-2,NI 
APCI,J,K)-AP(OI,J,K)-SPOI,J,K) 
CONTINUE 


VOLUME MASS SOURCE INPUT 


VOLT=0.0 

DO 113 I=2,NI 

DO 113 J=2,NJ 

DO 113 K=16,17 

IF (NHSZ2(I,J,K).EQ.0) GOTO 113 
DAI ZAI ,Ј,К,0,0) 
DYJ *:YL(I,J >К5,0,0) 
ВАК -ZLII;,J,K »0,0) 
VOLZDZI*OYJ*D2ZK*H*HxH 
VOL T -zVOLT «VO. 
CONTINUE 


DO 111 1I-2,NI 
DƏ III J-2,NJ 
DO 111 F.=1lo, 17 
IF (NHS2(I1,J,K).EQ.0) GOTO 111 
DXI су ГІТ ›Ј,К,0,0) 
DYJ -YL(I,J : :K 5050) 
DZK =ZL(I,J,K »0»0) 
QQQ=Q*H/( UOXCPOXRHOOXTA ) 
= 1.0 
QMS = QMS*H/(U0*RHOO ) 
VOL zDXI*DYJXxDZK 
SU(I,J,K ):SUCLI,J,K)*VOL*QMS/VOLT 
CONTINUE 
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00174500 
00174600 
00174700 
00174800 
00174900 
00175000 
00175100 
00175200 
00175300 
00175400 
00175500 
00175600 
00175700 
00175800 
00175900 
00176000 
00176100 
00176200 
00176300 
00176400 
00176500 
00176600 
00176700 
00176800 
00176900 
00177000 
00177100 
00177200 
00177300 
00177400 
00177500 
00177600 
00177700 
00177800 
00177900 
00178000 
00178100 
00178200 
00178300 
00178400 
00172500 
00178600 
00178700 
00178800 
00178900 
00179000 
0017°100 
00179200 
00179300 
00179400 
00179500 
00179600 
00179700 
00179800 
00179900 


C 


REX 


SCLVE FOR C 


CALL TRID (2,2,2,МІ,МЈМІ,МК,С) 


C xxx* RESET CONCENTRATION AT R-z0.0 AND END OF SPHERE 


C 


82 


85 
81 


79 


3% ж 


84 


HHH 


80 


Ἐν Ж E eee € 9€ eC 9€ 9€ 9 e > + € 9e e Dee € 3€ 3€ 3€ 3€ 9€ 2€ C 9€ 3E 9€ FE E EK € 9€ X 3€ 3E XC 0C 3€ EXC EE € X 


3X CX 3X 3C9CX- JC OCC E E 23€ HEE IE HII IE E XE JE ME E HE JE JE JE JE HE EE E HE 353533 33535 JE E JE JE JE FERE FE JE E E KK EK 
COMMON/R4/XCI 932), YC( 92),2C( 92) ,35(92 ),YS( 92),25(923), 
DXC(t93),DYYC( 93 ),DZZC( 93 ), DXXS( 93 ),DYYS(92 ) D225(93) 
COMMON/BL1/0DX ,DY ,DZ,VOL»DTIME »VOLDT » THOT »TCOOL,PI>Q,QR 
COMMON/BL7/NI >NIPI NIM] NJ ,NJP1,NJH1 SK NK PI ,NKH1 
›МІР2,МЈР2 ,МКР2 ,МА ,МАР1І ,МАМ1 ,МВ ,МВРІ ,МВМІ ,КЕОМЧ ,МСНІР ,NJRA,NWRP 
COMMON/BLI2/ NHRITE »NTAPE »NTMAXO ,NTREAL>» TIME ,SORSUM,ITER 


& 


& 


DO 81 K=1,NKP1 

AVT=0.0 

DO 82 I=2,NI 
AVT-AVT*(CCI,2,K)/NIMI1) 
CONTINUE 

DO 83 І=1,МІР1 

C(I,1,K J=AVT 

CONTINUE 

CONTINUE 


DO 74 I=1,NIP1 

DO 74 J=1,NJP1 
C(I,J,1)=C(I,J,2) 
С(І,Ј,МКРІ )=С(І,Ј,МК) 
CONTINUE 


FOR SURFACE MASS EXCHANGE HITH SURROUNDING 


DO 84 I-2,NI 

DO 84 K=2,NK 
С(І,МЈРІ,К )=С(1,МЈ,К) 
CONTINUE 


FOR CYLIC CONDITION 


09 80 Ј=1,КЈРІ 

DO 80 К=1,МКР1 

G1 1752) | K )-C(NI J ΣΚ} 
Ci NIP1,J9,K )7CC2 , 5 K) 
CO'iTINUE 


RETURN 
EO 


SUBROUTINE CALU 


00180000 
00180100 
00180200 
00180300 
00180400 
00180500 
00180600 
00180700 
00180800 
00180900 
00181000 
00181100 
00181200 
00181500 
00181400 
00181500 
00181600 
00181700 
00181800 
00181900 
00182000 
00182100 
001&2200 
00182300 
00182400 
00182500 
00162600 
00182700 
00182800 
00182900 
00182000 
09183100 
00155200 
00183300 
00183400 
00153500 
00182600 
00182700 
00183800 
00182900 
00184000 
00184100 
001842CO0 
00184300 
00184400 
02184500 
00184600 
00184700 
00184800 
00184900 
00185000 
00185100 


CCHMON/BL14/HCOEF ,TINF ¿CNT ,ABTURB ,BTURB ; VISL , VISMAX,QCORRT ,PH1,PM200185200 
COMMON/BL16/ CONST1,CONST2 »,CONST3 ,CONST4 »,CONST6 ;NT ;UO ,H;UGRT ;BUOY 00185300 
& CPO,PRT,CONDO,VISO,RHOO,HR,TR,TA,DTEMP ;j THRITE,TTAPE ; THAX ,GC ;RAIROO185400 
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COMMON/BL 20/SIG11(22,16,32 ),SIG12(22,16,32) ,SIG22(22,16532) 00185500 


& ›51515({22,1о›52)›51625>(22,16›52)›51655(22,]6›521 00185600 
COMMON/BL22/ICHPB(10),NCHPI(10!.JCHPBt 10 ), NCHPJC10)0),KCHPBt 10), 00185700 
& NCHPK(10),TCHP(10),CPS(16),CONS(10),WFAN( 10) 00185800 
COMMON/BL31/ TOD(L22516,32);ROD(22,;10, 32), PODt 22,10,32! 00185900 
& | ,CC0t(225165,32),UODLt 22,165, 22),VOD(L 22516522 15, 0D( 225,16, 32) 00186000 
COMMON/BL327 Т7(22,16,52),К(22,16,52),Р(22,1о»221 00180100 
& »>C(22,16,32),U(22,16,32),V022,16,32) , Ht 22516, 22) 00186200 
COMMON/BL33/ TPD(225,105,232 );RPD( 225165, 32) ,PPDL2251065, 32) 00180300 
& »>CPD(22,10,32),UPD(22,16,32),VPD(22,16,32 3} ,WPD(225,16,32) 00186400 
COMMON/BL24/ HEIGHT(22,16,32),REQ(22,16,22), 00186500 
& SMP(22,16,32),SMPP(22,16,32),PP(22,16,32), 00186600 
& 0U(22,16,32),0V(22,16,32),0WN(22,16,32) 00186700 
COMMON/BL36/AP( 22 516,32),AE( 22510532 ),AW(22516,32),AN(22,16,32), 00180800 
& А5(22,16,›352),АР( 22,16,52 ),АВ( 22,16,22), 00185900 
& SP(22,16,32),SU022,16,32),RI(22,16,32) 00187000 
COMMON/BL37/ VIS(22,16,32),COND( 22,16,32),NOD( 22,16,32),RRALL(579 }00187100 
& »>CPM( 22,16,32),HSZ(3,2 ) NNHSZ(22,16,32),RESORM( 93 ) 00187200 
00187300 

HK CALCULATE COEFFICIENTS 00187400 
00157500 

DO 190 K=2,NK 00187600 
KP2=K+2 00187700 
KP1=K+1 00187800 
KH1=K-1 00187900 
KM2=K-2 00188000 
DO 100 J=2,NJ 001838100 
JP2-2J«42 00188200 
JP1=J+1 00188300 
J™1=ل-1‎ 00188400 
JM22J-2 00188500 
DO 100 I=2,NI 00188600 
ІРггіж2 00185700 
IP1=I+1 00188800 
IMl=I-1 00188900 
IM2-1I-2 00189000 
IF (І.Е0.2) ΙΜΙΞΝΙ 00189100 
IF (I.EQ.2) IM2=NIM1 00189200 
ІҒ (1.Е6.5! Імегні 00189300 
IF (I.EGQ.NI) IP2=3 001589400 
00189500 

00189600 

CENTRAL LENGTH OF THE SCALE CONTROL VOLUME 60189700 
00185800 

DXPl-XLCIP1,J,K,15,0) 00189900 
DI =“L(I  ,J5K5,150) 00190000 
DXMl-7XLCIM1,J,KA,1,0) 00190100 
00190200 

DYP1-YLUI,JP1,K,1,0) 00190300 
DYJ =YL(I,J ›К,1,0) 00190400 
DYM1=YL(I,JM1,K,1,0) 00190500 
00190600 

OZP1=ZL(I,J,KP1,1,0) 00190700 
DZK -ZLUI,J,K 51,0) 00190800 
р2М1=21(1,Ј,КМ1,1,0) 00190900 
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C x*x 


C xxx 


SURFACE LENGTH OF THE CONTROL VOLUME 


DXN-XL(I ;JP1 Kl 2 ) 
DXS-XLI,J  5,K515,2) 
DXF -XLCI,J;,KP1,1,3) 
DXB-XLI,J,K 1922) 


DYF=YL( Teo sKe Lok , 5) 
DYB=YL(I;>J,K 51,3) 
DYE=YL(IP1,J,K,1,1) 
DYW=YL(I ου Κ 121) 


DZE=ZL(IP1>,J,K,1,1) 
DZW=ZL(I sJoKo1l51) 
D2ZNz2L(I;,JP1;K,1,2) 
D2S-2L(1,J 5Қ,1,2) 


CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME FOR U 


DXEE-XLCIP2,J,K,1,1) 
ОХЕ zXLGIP1,J9,K5,151) 
DXW -XL(I »J5K5151) 
DXWH-zXLCIM1,J,K,1,;1) 


DYNN-YLCI,JP2;,K,1,2) 
DYN zYL(tI,JP1,K,1,2) 
DYS zYLII,J »Κ»1»2) 
DYSS-YL(I;,JM1,K,1,2) 


DZFF-ZL(CI;,J,KP2,1,3) 
D2F -2L(I,J;,KP1,1,2) 
028 -2ZLII,J,K ,1,3) 
DZBB=ZL(I,J,KM1,1,3) 


DEFINE THE AREA OF THE 


DXYF =DXF*DYF 
DXYB=DXB*DYB 
DYZE=DYE*DZE 
DY ZW=DYW*DZN 
ὈΖΧΗΞΌΖΙΣΌΧΝ 
OZ2%S=D25*DxS 


VOL =DXI*D'`/J%DZK 
VOLOT=VOL/DTIME 


ZXOYN-DZXN/DYN 
ZXOYS-DZXS/DYS 
XYOZF -DXYF/DZF 
AYOZB -DXYB/D2B 
YZOXE =DYZE/DXE 
Y ZOXW=DYZW/DXW 


CONTROL VOLUME 
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00191000 
00191100 
00191200 
00191300 
00191400 
00191500 
00191600 
00191700 
00191800 
00191900 
00192000 
00192100 
00192200 
00192300 
00192400 
00192500 
00192600 
00192700 
00192800 
00192900 
00193000 
00193100 
00193200 
00195200 
00195400 
00193500 
00193600 
00193700 
00193800 
00193900 
00194000 
00194100 
00194200 
00194360 
00194400 
00194500 
00194600 
00194700 
00194800 
00194900 
00195000 
00195100 
00195200 
00195200 
00195400 
00195500 
00195600 
00195700 
00195800 
00195900 
00196000 
00196100 
00196200 
00196300 
00196400 


С жж 
С 


& 


& 


& 


& 


USE SINGLE AND BI-LINEAR INTERPOLATION TO EVALUATE 
PHYSICAL PROPERTIES AND FLUX ON THE SURFACES. 


GNE=SILINCRCI ;JPl1,K),RII »Jo5K );)DYP1,;DYJO*VII »JP1,K) 
GNH-SILIN(GRCIM1,JP1,K),RCIM1,J,K),DYP1,DYJO)*«VCIM1,JPl,K) 
GSE-SILIN(R(I  ,JMl1,K 5 ROI ,J2,K ),DYMI,DYJO*V(I ,J yK) 
GSH-SILINGRCIM1,;JM1;,K ))RCIM1, J;K ),DYM1,DYJOXVCLIM1,J ,К) 


GE zSILIN(RCIP1,J),K),R(I ,J,)K),DXEE,DXE )XU(IP1,J,K) 
GP =SILIN(R(IM1,J,K),RI(I  ,J,K),DXW ,DXE)*UCI JK) 
GW zSILIN(RCCIM2;J,K);RCIM1,;J,K) ,DXHH ,DXHOXUCIM1,J,K) 


GFE=SILIN(R(I ,J,)KP1),R(I ,J,)K),DZP1,DZK)IÜx*xH(I — ,J,KP1) 
GFWM=SILIN(RI(IM1;J,KP1),RIIM1,;J,K),DZP1,DZK )XI(IM1,J,)KP1) 
GBE=SILIN(R(I >J KM1),R(I »>J»K),D0ZM1,D02K )wH( I »3»Κ ) 
GBH-SILIN(RCIM1,J,KM1),RCIM1,J,K),DZM1,DZKO)*HCIM1,J,K ) 


CE=0.5*(GE+GP J*DYZE 
CW=0.5%*( GP+GW )*DYZW 


CN-SILIHNHt GNE ,GNH ,DXE , DXH )wD2XN 
CS-SILIHN(GSE GSH;,DXE ‚ОХИ )*«DZXS 


CFzSILIN(GFE ; GFW,DXE ;DXH )«DXYF 
CB-SILIN(GBE,GBN,DXE,DXW )*DXYB 


VISE =VIS{I ЭК) 
VISW=VISTIM1>,J>K) 


VISN= (VIS(I ,JP1yK)Y*YVIS(I ,J,K)+ 
VISCIM1,JPl,K )*VISCIM1,J,K))/4.0 
VISS= (VISI ,JM1,K)*YVIS(I 1,Ј,К + 
VIS(IM1,J21,K)+VIS(IM1,)J,K))⁄/%.0 
VISF= (VIS(I ,J,KP1I*YVIS(I ,J,K)+ 
VIS(IM1,J,KP1)+VIS(IM1,J )K))⁄/%.0 
VISB= (VIS(I ,J)KM1)+VIS(I »ω»Κ}4 
VISCIMI,J,KM1 J+VISCIM1 JK) )/4.0 


VISN1-z2XOYN*VISN 
М4551-270Ү5%У155 
MISEtI-YecOXEXVISE 
VISWH1-zYZOXxmn*VISMW 
VISEISAYOZF*VISF 
VIS61=xYOZB*YISB 


CEP=( ABS(CE )+CE )¥DXE/DXI/16. 
CEM=(ABS(CE )-CE )¥DXE/DXP1/16. 
CNPz(AESICHOSCWOXDXHW/DXM1/16. 
ChiM=( ABS( CH )-CWI*DXWN/DXI/16. 


CNPz((ABSCCNO*CNOXDYP1xDYJ/CDYNXCDYN*DYS ))/8. 
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00196500 
00190600 
00196700 
00195800 
00196900 
00197000 
00197100 
00197200 
00197300 
00197400 
00197500 
00197600 
00197700 
00197800 
00197900 
00198000 
00198100 
00198200 
00198200 
00198400 
00198500 
00198600 
00198700 
00198800 
00198900 
00199000 
00199100 
00199200 
00199300 
00199400 
00199500 
02199600 
00199700 
00199800 
0019°900 
00200000 
00200100 
00200200 
00200300 
00200400 
00200500 
00200600 
00200700 
00200800 
00200900 
00201000 
00201100 
00201200 
06201300 
00201400 
00201500 
00201600 
00201700 
00201800 
00201900 


801 


802 


803 


804 


805 


806 


808 


809 


810 


CNM=(ABSUCNI-CN IXDYPL¥DYJ/IDYN*( DYN+CYNN J )/8. 
CSP-(LABSCCS )4CS 1*XDYMIXDYJ/UDYS*UDYS*DYSS ) )/6. 
CSM-(LABS(UCS )-CS )JkDYMY*DYJ/(ODYS*(lL DYS*DYN. ))/8. 


CFP-LCABSCCF )4CF 14DZ2P1xDZK/(C(DZF*CD2ZF *DZB. ))/8. 
CFMzLAESLCF ) -CF )JXDZP1x*DZK/Ul D2F*(tDZF *DZFF ) )/8. 
CBP=( ABS(CB )+CB )*DZM1*xDZK/(DZB*(DZ8+DZBB ) )/78. 
CBM-(ABS(CB ) -CB )xDZMIXxDZK/(tDZB*( DZB*DZF ))/δ. 


AECI,J,K)2-.5x*CE*CEP*CEMX( 1. *DXE/DXEE ) 4CHMX*DXH/DXE *VISE1 
ANCLI,J,K)- .5*CH*CHM*CHPx*(1.*DXH/DXFHH)*4 CEPXDXE/DXH*VISHI 


AN(I,J,K )=-.5*DYJ/DYN*XCN+CNP +CNM*( 1. «DYN/DYNN )4CSM*DYS/DYN*VISNI 
AS(I,J,KI= .5*DYJ/DYS*CS#CSM+CSP*(1. +DYS/DYSS )+CNP*DYN/DYS+#VISS1 
AFCI,J,K)2-.5xDZK/DZFX*CF *«CFP«CFMXx( 1. «DZF/D2ZFF ) 3 CBM*D2B/DZF *VISF1 
AB(I,J,K)= .5*DZK/DZB*CB+CBM+CBP( 1. +D2B/DZBB )+CFPxDZF/DZB+VISB1 


AEE =-CEM*DXE/DXEE 
AEER-AEEXUPDLCIP2,J,K) 
CONTINUE 


AV z -CHP xDXxH/DXEHH 
AWNHRZAHWHXUPD(CIM2,J,K) 
CONTINUE 


IF (J.LT.NJ) GOTO 805 
ANHI=0. 

ARNR=0. 

COTO 806 
AHNZ-CNH*DYN/DYNN 
ANTHIRZANNXUPDCCI ;JP2,K ) 
CONTINUE 


IF (J.GT.2) GOTO 807 
А55=0. 

ASSR=0. 

GOTO 808 
ASS=-CSP*¥DYS/DYSS 
ASSR-ASSXUPDII,;JM2,K) 
CONTINUE 


IF (K.LT.NK) GOTO 809 
лЕР=0. 

АРЕК=0. 

COTO 810 . 
AFF=-CFM*DZF/DZFF 
AFFR=AFFXUPD(I,J,KP2) 
CONTINUE 


IF (K.GT.2) GOTO 811 
ABB-0. 

ABSR=0. 

GOTO 812 
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00202000 
00202100 
00202200 
00202300 
00202400 
00202500 
00202600 
00202700 
00202800 
00202900 
00203000 
00203100 
00203200 
00203300 
00203310 
00203320 
00203330 
00203340 
00203400 
00203500 
00203600 
00203700 
00203800 
00203900 
00204000 
00204100 
00205200 
00204300 
00204400 
05204500 
00204600 
00294700 
00204800 
00204900 
00205000 
00205100 
00205200 
00205300 
00205400 
00205500 
00205600 
00205700 
00205800 
00205900 
00206000 
00206100 
00296200 
00206300 
00206400 
00206500 
00206600 
00206700 
00206800 
00206900 
00207000 


О 00 


&£1i ABS=-CBPxDZB/DZB8 
ABBRzAESBX*UPD(I ,J,KM2) 
812 CONTINUE 


HSAAAERT ARE VRIKKK IKK SKK KKK KKTRRRAKTKSRKSRAAKKKKKKIRARKK ERE 
HHH Fa eE TAKS KKH IHS TFA KKKKKK SEK AKKRSKKTKKKKRKK AKERS SHEARER 
жжж MODIFICATION FOR DECK BOUNDARIES 


900 CONTINUE 
IF (NOOCIM2,J,K).EQ.0) GOTO 901 
AWAN=0.0 
AWWR=0.0 


901 CONTINUE 
IF (NOD(IP1,J,K}.EQ.0)} GOTO 902 
AEE=0.0 
AEER=0.0 


902 CONTINUE 
IF (NOD(I,JM1,K).EQ.0) GOTO 903 
£SS=0.0 
ASSR=0.0 


905 CONTINUE 
IF tNOD(I,JP1,K ).EQ. 0) GOTO 904 
ANH-0.0 
ANNR=0.0 

90% CONTINUE 
IF (NOD(I;J,KM1).EQ.0) GOTO 905 
АВЗ:0.0 
ABBR=0.0 


995 CONTINUE 
IF (NOD(I,J,KP1).EQ.0} GOTO 906 


AFF=0.0 

ArFR=0.0 
906 CONTINUE 
RA He AHH TMH MARTHA ATURE ATTA RATHATEAHE ARE RRA AHR AHHHUREEE 
ULITIIISITIIEIDIILIIIPITILEDTPPLELITIITIDITIPETIIIIITPLDTIITIPILIITITII 


HEH SU FROM NORMAL STRESS 


RE=(SIGLI(I ,J,)K)-(U(IP1,J)K)-U(I  5J,K) ¥VISE/DXE )*DYZE 
RHZCSIGllC(IM1,;J,K )-(UCI  ,J,K )-ULIM1,J;,K ) J&VISH/DXH )* DY ZH 
RN-:CSIG12(I,;JPl1,K )-CUCI,JPl,K )2-UCI,J KO) J*VISN/DYN )*DZXN 
В5=(051612(1,Ј ,K)-(UC I,;J  ,K)-ULC I,JM1,K ))&*VISS/DYS )*DZXS 
RF-(SIGI1SCI,J;,KP1)-tUCI;J;KP1)-UCI,J,K J J*VISF/DZF J¥DXYF 
RB-(SIG13(I,J,K  )-tUCI,J,K  )-U( I,J,KM1l))*VISB/DZB )*DXYB 


x** SU FROM CURVED STRESSES AND ACCELERATIONS 
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00207100 
00207200 
00207300 
00207400 
00207500 
00207600 
00207700 
00207800 
00207900 
00208000 
00208100 
00208200 
00208300 
00208400 
00208500 
00208600 
00208700 
00208800 
00208900 
00209000 
00209100 
00209200 
00209300 
00209400 
00209500 
00209600 
00209700 
00209800 
00209900 
00210000 
00210100 
00210200 
00210300 
00210400 
00210500 
00210000 
00210700 
00210800 
00210900 
00211000 
00211100 
00211200 
00211300 
00211400 
00211500 
09211600 
00211700 
00211800 
00211900 
00212000 
00212100 
00212200 
00212200 
00212900 
00212500 


100 


KR 


aan 


KER 


ος 


500 


C xxx 


& Vt IMl1;JPl;,K ),VCIM1, JK ),DYJ,DYJ, 


é WC IM1,J,KP1),WEIM1,J,K),D0ZK,D2K, 


АУб12:0.5%(616121:,2Р15К)%21512.1,/2К)) 
АУ512-0.5х(520612(1»2/.КР12%5161311».)К)) 
АМС22-6111М(51652211,0,К),51622( ІМ1,./,К),0ХЕ,рХИ) 
AVG33=SILIN(SIG33(I,J yK),SIG33(IM1,)J K ),DXE ,DXM ) 


AUL=U(TI,J,K) 


AU2=BILIN(V(I ,JP1 yK),V(I ,J,K),DYJ,DYJ, 
DXE ) DX ) 
AUS-BILIN(H(I 


»J,KPLI,WII | ,J,K ),DZK, DZK, 


DXE , DXN ) 
AR=SILINERCI,J,K),RCIM1L,J5K),DXE ,DXW) 


ARU12=ARwAU1*AU2 
ARU13S=AR*¥AU1¥AUS 
ARU22-7ARXAU2*AU? 
ARUSS-ARXAUS*AUS 


RRY - ( AVG12-ARU12 )*D2ZK*( DXN-DXS ) 
RRZ-t AVG13-ARUL3 )*DYJ*( DXF -DXB ) 
RRA=( AVG22-ARUZ2 IXDZK*( DYE-DYW ) + 


& ( AVGSS-ARU32 )*DYJ*t DZE -DZH) 


AP(I,J,K )-AELI ЭК J4AN(I,J,K ItAN(I,J5K ItAS(I,J,K) 


& *AFCI,J2,K)*ABI(I,J,KO)*AEE*AKV* ANN* ASS*AFF * ABB 


SPECI,J,K)--CRODCI, J,K O*DXW*RODCIMI,J,KO*DXE )/t DXW*DXE Y*VOLDT 
SUCI,,J,;K)- (ROD(I,J,K)XDXH*RODCIM1,J,K)XDXE )/(CDXV«DXE )*VOLDT 


& xXUOD(I,J,K) 

SU(I, J Κ)Ξδυί р »J ‚К )+DYI*¥DZK¥E Ρί IMi J | K J-P(I,J,K)) 
& *AEER* AHAR* ANNR* ASSR*&AFFR* ABBR 
& *RE -RoURN-RS*RF -RB«RRY *RRZ-RRXAX 


&-BUOYXSINUZC(IKO) IX CORCI  JK )-REQCI  J5K ) SDXHXCOS(XCCI J) et ROIM1; 


ἃ J,K J-REQCIM1,J,K ) )J&DXEXCOS(UXCUIMA)))/(C DXH* DXE )*VOL 


CONTINUE 
TAKE CARE OF B.C. THRU AN,AS,AE,AH;AF,AB,SP AND SU 
RADIUS DIRECTION 


DO 500 K=2,NK 

ОО 500 І=2,МІ 

SP(I,2,K 3=SP(1,2,K J+AS(1,2,K) 

SPI DOCK )=5Р{ 22 »K J-AS( І,2,К) 

SU(I,2,K )=SU(I,2,F. 2.0514 ΤΙ »K J¥LS( I,25K) 
SPCI,NA,K)zSPUL,NAJ,K)-ANCI;NJ,K) 

AN(CI,NJ > K \=0. 

А5(1,2,К )=0. 

CONTINUE 


CYLIC CONDITION 


DO 502 K=2,NK 
DO 502 J-2,MNJ 
5002 ,J,KJ)-SU(2 ,Ј,К)+АМ( 2 


›Ј,К)ж0(1 ЭК) 


160 


00212600 
00212700 
00212800 
00212900 
00212000 
00213100 
00213200 
00213300 
00213400 
00213500 
00213600 
00213700 
00213800 
00213900 
00214000 
00214100 
00214200 
00214300 
00214400 
00214500 
00214600 
00214700 
00214800 
00214900 
00215000 
00215100. 
00215200 
00215200 
00215400 
00215500 
00215600 
00215700 
00215800 
00215900 
00216000 
00216100 
00216200 
00216300 
00216400 
00216500 
00216600 
00216700 
00216800 
00216900 
00217000 
00217100 
00217200 
00217300 
00217400 
00217500 
00217600 
00217700 
00217800 
00217900 
00218000 


SUCNI ,J»K I=SUCINT,J,K JtAECNI,J5K JXUCNIPI,J,K ) 00218100 


AH(2 ,Ј,К 20.0 00218200 
AE(NI,J,K)=0.0 00218300 

502 CONTINUE 00218400 
00218500 

C xxx FRONT AND BACK WALLS 00218600 
00218700 

DO 600 I=2,NI 00218800 

DO 600 J-2,NJ 00218900 
00219000 

С жж SLIP WALLS 00219100 
SP(I,J,2)=SP(I,J,2 14AB( 15552) 00219200 
SPLI,J,NK)-SPUI Jj NK )J*AFUI SJ; NK) 00219300 
00219400 

AF(I,J,NK 120. 00219500 
AB(I,J,2)=0. 00219600 

600 CONTINUE 00219700 
00219800 

00219900 

00220000 

00220100 

IF (NCHIP.EQ.0) GOTO 105 00220200 

с σππεῦσπεπηπρσππηππππεπεπππη»ππποποπηπερηποπννηπππηηναπηῇ 00220300 
C ӘРЕЛЕЕВЕЕЗППРЕРЕЕРЕПЕЕЯБЕПЕНЕВЕЯРЕЕЕВЕЕРЕЕВ 00220400 
C 3x* MODIFICATION FOR DECK BOUNDARIES 00220500 
00220600 

DO 101 N=1,NCHIP 00220700 
IS=ICHPBIN) 00220800 
IE=IB+NCHPI(N)-1 00220900 
ΙΕΗ1Ξ18-1 00221000 
IEP1=IE+1 00221100 
JB=JCHPBIN ) 00221200 
JE=JB+RCHPJ(H)-1 00221300 
28:11508-1 00221400 
JEP1=JE+1 00221500 
KB=KCHPBIN ) 00221600 
KESKB+NCHPK(N )-1 00221700 
KBM1=KB-1 00221800 
КЕР1=КЕ +1 00221900 
00222000 

 ШШПа J=, JE- 00222100 

DO 102 K=K5,KE-1 00222200 

AEC IBM15J,K 1=0.0 00222200 
АН(1ЕРІ,2,Қ)50.0 00222400 
00222500 

102 CONTINUE 00222600 

| 00222700 

DO 103 I-IB,IE 00222800 

DO 103 K=KB,KE-1 00222900 
€P(1,JBM1,K J=SP(I,JBM1,K J-AN( I, JBM1>K ) 00223000 
АМ(1,28М1,Қ)50.0 00225100 
00223200 

SP(I,JE,K)=SP(I,JE,K)-AS(I,JE,K) 00223300 
AS(I,JE>K}=0.0 00223400 

103 CONTINUE 00223500 
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106 


C «κκ 


104 
104 
105 


DO 106 I=I8,IE 

DO 106 J=JB,JE-1 

SP(I,J,KBM1 J=SP(1,J,KBM1 J-AF(I,J,KBM1 3 
AF(I,J,KBM1 }=0.0 


SP(I,J,KE J=SP(I,J,KE J-AB(I,J,KE) 
AB(I,J,KE )J=0.0 
CONTINUE 


FOR THE CELLS INSIDE OF THE DECKS 


DO 104 I-IS,IE 
DO 10% J=JB,JE-1 
DO 104 K=KB,KE-1 
SP(I,J,KJ=-1.0E20 
AW(I,J,K )=0. 
AELI,J,K)70. 
AS(I,J,K)=0. 
ANCI,J,K0)20. 
SULCI,J,K)20. 
CONTINUE 
CONTINUE 
CONTINUE 


Еее ге 534422 5-22-22 525254. 
EEIDLLITIIIIIIDIIIDITDPLPIITIITIISIPIDILIIPPIIITIITPIIITIITITIIIIIITIE: 


C xxx 


301 


C «κκ 


74 


ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 


DO 301 K-2,NK 

DO 301 J-2,NJ 

DO 301 I-2,NI 
DYJ=AYL(I,J,K,1,0) 
DZK=ZL(I,J,K5,1,0) 

DYZ=DYJ*DZK 

ΑΡί τν»). =AP(I,J,KI-SP(I,J>,K) 
DUC(I,J,K)-20Y2Z/AP(LI; J,K) 
CONTENUS 


SOLVE FOR U 
CALL TRID (2,2,2,NI,NJ,NK,U) 


DO 74 I-2,NIP1 

DO 74 J-2,NJPl1 

UL I,J9,1)0*:0(t(I,J,2) 
ULI,J,NKP1)-zUCI;,J,NK) 
CONTINUE 
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00223600 
00223700 
00223800 
00223900 
00224000 
00224100 
00224200 
00224300 
00224400 
00224500 
00224600 
00224700 
00224800 
00224900 
00225000 
00225100 
00225200 
00225300 
00225400 
00225500 
00225600 
00225700 
00225800 
00225900 
09226000 
00226100 
00226200 
00226300 
00226400 
00226500 
00226600 
00226700 
00226800 
00226900 
00227000 
00227100 
00227200 
00227300 
00227400 
00227500 
00227600 
00227700 
00227800 
00227900 
00228000 
00228100 
00228200 
00226300 
00228400 
00228500 
00228600 
00228700 
00228800 
00228900 
00229000 


000 


DO 79 I-1,NIP1 

00 79 K=1,NKP1 

U(I,1,K)=U(I,2,K) 
79 CONTINUE 


IF (NCHIP.EQ.0) GOTO 112 
PARERREFIRERRERERRRRRARRRRRRRARRRRRRRRRRRRNNRGREGRERRERRRRRES 
THR S HEE AHA KR eFRRE LEKKRGHRRREPARAR ES RRRSE 
*x* RESET THE VELOCITY INSIOE OF DECK 


DO 110 N=1,NCHIP 

IB=ICHPBIN) 

IE-IB*NCHPI(N)-1 

JB-zJCHPB(N) 

JE=JB+NCHPJ(IN)=-1 

KS=KCHPB(N ) 

KE-KB*NCHPK(UNJ)-1 

DO 108 I-IB,IE 

00 108 J=JB,JE-1 

DS 103 K=KB,KE-1 

Ut I,J,K)20.0 
108 CCNTINUE 
110 CONTINUE 
112 CONTINUE 
23255552 2-5 25 5 522 52-5:2-2-2-24-2 52444-24: 44 
топмиЯянапа тк ЯПыВН Ваз аЕ 2 ЭФОФЕЗВЕРЕЕТЕРЕНЕЕЕРЕ ИЕ ЕРЕН? 


RETURN 
END 


e k 3e eX € Je E E > ας θε} κ e 6 3 9€ 3€ € E E KC E J KH HEH KKKHH HHH HKKKKEKF KEK KEK KKAKKKEKK 


SUBRCUTINE САГУ 
HHH HHH HHH HIKE HH HHH HEHE HH HHH E EXC OE E EXE PE CE CC SEK HEHEHE SKS HHH 35336 Ж E MEME E E 


СОММОЧ/К4/ХС(92),ҮС(95),2С(92),Х5(922,Ү5(92),25(92), 

8 OXXC(O93),0YYCt 93),022CC693 ), OXXSt 92 ),DYYSC?2 ),D225( 93) 
COMMON/BL1/0X;DY;,D2,VOL,OTIME VOLO, THOT , TCOOL ;PI ,Q, QR 
COMMCH/BL7/NI,NIP1.NHIM1,NJ,NJP1,NJMl,HNHK,NKPl,NKHIl 

&  ,NIP2,HJP2,NKPZ .NA,NAP1,NAMI,NB,NZP1,NEMI,KRUNH,NCHIP ,NJRA ;NWRP 
COIT! 7N/BL12/ NHRITE,NTAPE,NTMAXO NTREAL TIME ,SORSUM,ITER 


00229100 
00229200 
00229300 
00229400 
00229500 
00229500 
00229700 
00229800 
00229900 
00230000 
00220100 
00220200 
00230300 
00230400 
00230500 
00230600 
00230700 
00230800 
00230900 
00231000 
00231100 
00231200 
00251200 
00251400 
00231500 
00231600 
00231700 
00231800 
00231900 
00232000 
00252100 
00232200 
00232300 
00232400 
00232500 
00232600 
00232700 
00222800 
00222900 
00233000 
00233100 
09253200 
00222200 
00252400 
00233500 


COMMON/BL16/7 CONST1,CONST2 ,CONST3 ,CONSTS ,CONST6 >tiT ,U0,H,UGRT ,BUOY ,002353000 
& CPO,PRT,CONO0,VISO,RHOO,HR,TR,TA,OTEMP,TWRITE,TTAPE »TMAX,GC »RAIROO2Z33 700 


COMMON/3L20/31611(22,16,32),51612(225,16,32),516G22(22510532) 


& »51615(22,16,352),51522(22,16,52),51652(22,10,32) 
COMMON/BL22/ICHFE(10},NCHPI(10),JCHPB(10),NCHPJ(10),KCHPB( 10), 
& МСНРК(10 ),ТСНР(10 ),СР5(10 ),СОМ5(10 ),ИРАМ№(10) 


COMMON/BL3S1/ TOD(22,;10,32),POD(22,16,22),POD(C225; 10,32) 

&  ,C0O0(22,16,32),U00(22,16,32),V00( 22,16, 32 ),W00t 225,16, 32) 
COMMON/BL32/ Т(22,16,32 ),В( 22,16,32 ),Р(22,16,32) 

8 9C(022,16,32 3 ,U022 516532 3 ,V022 516532 J »W(22516532) 
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00232800 
00233900 
00254000 
00254100 
00234200 
00234300 
00234400 
00234500 


COMMON/BL33/ TPO(C2,10,32),RPD(20,16,32 ),FPD(22,16,32 ) 00234600 


& ›»СРО{ 22,10,32) ,ОРОІ 22,16,32 ),УРр( 22,16,52 ),МР0( 22,16,32) 00234709 
COMMON/BL34/ HEIGHT(22,10,32),REQ(22,15,52), 002364800 
& SMP(t225165,32), SHPP(L225105,32),PPt 22,165,232), 00224900 
& DU122,16,32),0V(22,16,32),DW(22,10,32) 00225000 
COMMON/BL30/AP(225,10,32),AE(22,10,32 ), ANI 22,16,32),AN(22,16,32), 00225100 
& AS(22,10,220),AF( 22,16, 22), 4Bt 225105, 32), 00235200 
& 5Р(22,16,521,51122,16,32),К1(22,16,52) 00225300 
COMMON/BL37/ VIS(22,16,321,COND(22,16,32 },NOD(22,16,32 ),RWALL( 579 )00235400 
& »>CPM(22,16,32),HS2(3,2),NHSZ(22,16,32 },RESORM( 93 ) 00235500 
00235600 

00235700 

C xxx CALCULATE COEFFICIENTS 00235800 
00235900 

DO 100 K=2,NK 00236000 
KP2-K*2 00236100 
KP1=K+1 00236200 
KM1-K-1 00236300 
KM2=K-2 00236400 
DO 100 J=3,NJ 00236500 
JP2=J+2 00236000 
JP1=J+1 00236700 
JMl=J-1 00236800 
JM2=J-2 00236900 
DO 100 I=2,NI 00237000 
IP2=1+2 00237100 
IP1=I+1 00237200 
Ta = T 00237300 
IM2=I-2 00237400 
IF (I.EQ.2) IM2=NIM1 00237500 
Ir Ш.ЕС.МІ) ІР223 00237600 
00237700 

00237800 

С CENTRAL LENGTH OF THE SCALE CONTROL VOLUME 00237900 
00238000 

DXPl-XLCIP1,J,K,2,0) 00238100 
DXI z-XL(I  ,J,k5,250) 00233200 
DXMI=XLUIM1,J,K,2,0) 00238300 
00258400 

DYPl-YL(I;,JPl1,K,2,0) 00238500 
OYJ zYL(Io,J >К,2,0) 00238600 
DYMI=YL(I,JM1,K,2,9) 00223700 
00238800 

CZP1-:2:.(1,J,KP1,2,0) 00238900 
O2ZK FZLII,J»K 52,0) 00229000 
D2i1122ZL(1, J,KM1, 2,0) 00229100 
00239200 

С жж SURFACE LENGTH OF THE CONTROL VOLUME 002392360 
00239400 

DXN-XL(LI,JP1,K,2,2) 00239500 
DXS-XLII,J  ,K5252) 00239600 
DXF=XL(I,J,KP1,2,3) 00239700 
DXB=XLII,J5K ›2›5) 00259800 
00239900 

ΡΥΕΞΥΙ (1,9 ΚΡ1, 2,5) 00240000 
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ς «κκ 


С ж» 


С жж 


& 


DYB=YL(I,J>,K 9293) 
DYE=YL(IP1L,J»K,251) 
DYW=YL{I ,J,K,2,1l) 


DZE=ZL(IP1,J,K,2,1l) 
DZW=ZL(I ,Ј,кК,2,1) 
DZN=ZL(I,JP1,K,2,2) 
DZS=ZL(I,J ;K5»252) 


CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME 


DEEEZXLUIP2,J;,K52,1) 
DXE ΙΡ. εδ) 
DXW =XL(I »J5K 5251) 
DXVINEXLOIIML,J,K,2,1) 


DYNN=YL(I,JP2,K,252) 
DYN =ҮГ(І,ЈРІ,К,2,2) 
DYS =YL(I,J ›К›2›2) 
DYSS=YL(I,JM15K,2,2) 


DZFF=ZU(I,J,)KP2,2,3) 
ОЕ =Z2L(I,J,KP1,2,23) 
O28 =Z2L(1,J,K 52,3) 
DZBB-ZL(I,J,KM1,2,3) 


DEFINE THE AREA OF THE CONTROL VOLUME 


DXYFzDXF*DYF 
DXYP-DXB*DYB 
DYZE=DYE*DZE 
DYZW-DYH*DZH 
D2ZXNzDZN*OXH 
DZXS-D2S*DXS 


VOL-DXI*DYJ*DZK 
VOLDT=VOL/DTIME 


Z*OYN-DZXN/DYN 
Z/*OYS-DZXS/DYS 
AYCZF-OXYF/DZF 
ХҮС2В-Охтр/092В 
Z2 E =DYZE/DXE 
YZOAW=DY ZR/DXW 


USE SINGLE AND BI-LINEAR INTERPOLATION TO EVALUATE 
PHYSICAL PROPERTIES AND FLUX ON THE SURFACES. 


GEN=SILIH(R(IP1,J ,1,К),В(І,Ј ,K),DXP1,DXI)w%wU(IP1,J 5K) 
GES=SILIHI(R(IP1,yJH1,K I.R (I1,JH1,K ),DXP1,DXI )x>U(IP1,JH1,K ) 
GWN=SILIN(RCIM1,J ,K),R(I1,)J K), ,DXM1,DXI)*U(I ,J 5K) 
GWNS=SILINCR(IM1,JM1,K),R(I,JM1,K),DXM1,DXI)¥U(I ,JM1,K) 
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00240100 
00240200 
00240500 
00240400 
00240500 
00240600 
00240700 
00240800 
00240900 
00241000 
00241100 
00241200 
00241300 
00241400 
00241500 
00241600 
00241700 
00241800 
00241900 
00242000 
00242100 
00242200 
00242300 
00242400 
00242500 
00242600 
00242700 
00242800 
00242900 
00243000 
00243100 
00243200 
00243300 
00243400 
00243500 
00243600 
00242700 
00243800 
00243900 
00244000 
00244100 
00244200 
00244300 
00244400 
00244500 
00244600 
00244700 
00244800 
00244900 
00245000 
00245100 
00245200 
00245300 
00245400 
00245500 


GN z-SILIN(RCI,JPl,K),RCUI,J — 5K ),DYNN,DYNI*V(1,JP1>K ) 00245600 
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GS -SILINIR(I,JM2,K);RLUL, JMI, KO) DYSS,DYS )*VEC I ; JM1,K) 00245800 

00245900 
GFN-:SILIN(R(I,J  ,KPI),RUI,J2. o,K)5,02P1,DZKO*WH(I,J ,КР1) 00246000 
GFS=SILIN(R(I1,JH1 yKP1),RII,JM1)K),DZP1 DZK )wH(I,)JH1,KP1) 00240100 
GBN=SILIN(R(I,J »KM1),RII,J »K),0ZM1,DZKI*¥WII,JI 5K) 00246200 
GBS-SILINI(RLI,JMI1,KMI),RCI,JM1,K),DZM1,DZ2ZK *WH(I,JMIoK ) 00246300 

00246400 
CN=0.5*( GN+GP ) DZXN 00246500 
CS=0.5*(GP+GS )*DZXxS 00246600 

00246700 
CE=SILIN(GEN,GES ,DYN,DYS )¥DYZE 00246800 
CWH=SILIN(GWN,GHS ,DYN,DYS )*DYZW 00246900 

00247000 
CFzSILIN(IGGFN,; GFS,DYN,DYS )xDXYF 00247100 
CB=SILIN(GEN,GBS,DYN,DYS )*DXYB 00247200 

00247300 
VISN-VIS(I,J ,К) 00247400 
VISS=VIS(I,JM1,K ) 00247500 

00247600 
VISE= (МІЅ(1Р1,Ј ,КІУІСІІ,) ,КіІ» 00247700 
& МІЅ(1ІР1,ЈМ1,К )+У15(1,ЈМ1,К) )/%.0 00247800 
VISH= (VISCIM1,J K)+VISII,J К) 00247900 
& VISCIM1,;JM1,;K )*VISU I; JM1,K ))/4.0 00248000 

00248100 
VISF= (УІ5(І,) ,KPlIJ¢tVIS(I,J ,Кк)% 00248200 
& VIS(I,JM1 ,>KP1 1#VISCI,JM15,K))/4.0 00248200 
VISB= (VISCI,J »КМІЗУІ5(І,) ,K)+ 00248400 
& VIS(I,JM1,KN1)+VIS(I,JM1,K) 179.0 00248500 

00248600 

00248700 

00248800 
VISN1=Z™“OYN*VISN 00248500 
MISSISZXOYSXVISS 0024 9000 
VISE1=YZOXE*VISE 00249100 
VISHi-zYZOXW*VISH 00249200 
VISF1-XYOZF*VISF 00249300 
VISBl-*XYO28*VISB 00249200 

00249500 

00249600 
CEP=(ABS(CE J+CE )XDXPL1¥DXI/( DXEX(DXE+DXW ))/δ8. 00249700 
CEM=(ASSICE )-CE 1*DXPI*DXI/UDXE*((DXE*DXEE ) 7/8. 00249800 
CHPz(AESICHO*CH 1*DXMI*DAI/CDXWH*t DXA«DXWWA ) )/8. 00249900 
CHM-(ABSUCHO)-CHOXxDXMIXDXI/GDXRH*UDXZHSDXE ))/8. 00250000 

00250100 
CHP=(ABS(CNJ+CNIXDYN/DYJ/16. 09250200 
CNM-(ABSUCNI-CN )*DYN/DYP1/716. 00250200 
CSP-(ABSUCS )*CS )*DYS/DYM1/16. 00250400 
CSM-(ABS(UCS ) -CS )*DYS/DYJ/Z16. 00250500 

00250600 

00250700 
CFP=(ABS(CF )4CF )*DZP1x*DZK/Ct DZFXx( DZF *DZB ))/8. 00250800 
CFM-tABSUCF ) -CF )*XDZP1*«DZ2ZK/( DZF*t DZF *DZFF) 0/8. 00250900 
CBP-(ABS(ICB)*CB )*DZM1*DZK/( D2ZB*( DZB*DZBB ) )/8. 00251000 


CBM=( ABS( CB )-CB)*xDZM1*DZK/( DZB*(DZB+DZF 31/8. 00251100 
00251200 
00251300 
AZ(1,J,K J=-.5*DXI/DXEXCE +CEP+CEM*( 1. +DXE/DXEE )+CWMXDXW/DXE+VISE1 00251400 
AWM(I,J,K)2 .5*DXI/DXH*CH*CHM*CHPX(1. *DNHA/DXHH )*CEPXDXE/DXH«VISH1 00251500 


00251600 
ANCI;J,K)2-.5xCN*CHP4CNM*(1. *DYN/DYNN )Ó4 CSM*DYS/DYN«*VISN1 00251700 
ASCI,J,K)2 .5*CS*CSM«CSP*(1. «*DYS/DYSS )&CNP*DYN/DYS*VISSI 00251800 
00251810 


AFCI,J,K)2-.5*DZK/DZFX*CF*CFP«CFMX*(1.*DZF/DZFF )*CBM*DZB/DZF*VISF1 00251820 
AB(1,J,K)= .5*DZK/DZB*CB*CBM*CBPx( 1. *«DZB/DZBB)*4CFPxDZF/DZB*VISBl 00251850 


801 


802 


803 


804 


805 


806 


807 


808 


609 


811 


812 


AEE=-CEM*DXE/DXEE 
AEER=AEE*VPD(IP2>J,K) 
CONTINUE 


AHHz -CHP*DXH/DXFHH 
ARMAR zAHFHXVPDIIM2,J;K) 
CONTINUE 


IF (J.LT.NJ) GOTO 805 
АММ20. 

ANNR=0. 

GOTO 806 
ANI=-CNM*DYN/DYNN 
ANNR=ANNXVPD(I ,JP2>K) 
CONTINUE 


IF (J.GT.3) GOTO 807 
А55:0. 

ASSR=0. 

COTO 808 
ASS=-CSP*DYS/DYSS 
ASSRZSASS*VPD(I,;,JM2,K) 
CONTINUE 


IF (K.LT.NK) GOTO 809 
ΑΕΕΞΟ, 

AFFR=0. 

GOTO 810 
ArF=-CFM*DZF/DZFF 
AFFR-AFF*VPD(I,J,KP2) 
CCNTINUE 


IF (K.GT.2) СОТО 811 
АВВ20. 

ABER=0. 

GOTO 812 
ABB--CBP*DZB/DZBB 
ABBR-ABB*VPD(UI , J,KHM2) 
CONTINUE 
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00251840 
00251900 
00252000 
00252100 
00252200 
00252300 
00252400 
00252500 
00252600 
00252700 
09252800 
00252900 
00252000 
00252100 
00253200 
00253300 
00253400 
00253500 
00253600 
00253700 
00253800 
00253°00 
00254000 
00254100 
00254200 
00254300 
00254400 
00254500 
00254600 
00254700 
00254800 
00254900 
00255000 
00255100 
00255200 
00255500 
00255400 
00255500 
00255600 
00255700 
00255800 
00255900 
00256000 
00256100 


O O O 


3€ * 


900 


901 


902 


903 


904 


905 


906 


С жжж 


DIZIIIILIDIITIIIPEPIDRIIIIPIIDEITIPEITIISIEISZIIZLIIITIPTTIPIEIITTPPIE 
ВЕКЯЯЗЯНТЕЛЕПВЕУИНКППЕВЕЕЕЕ ККТЕЕБЕРЕНЕНГЕЕ ЛЫҚ 


MODIFICATION FOR OECK BOUNDARIES 
CONTINUE 

IF (NODC IM1,J,K).EQ.0) GOTO 901 
AWH=0.0 

AWWR=0.0 


CONTINUE 
IF (NOO(IP1,J,K).EQ.0) GOTO 902 
AEE=0.0 
AEER=0.0 


CONTINUE 
IF (NOO(I,JM2,K).EQ.0) GOTO 903 
ASS=0.0 
ASSR=0.0 


CONTINUE 
IF (NOO(I,JP1,K).EQ.0) GOTO 904 
ANN=0.0 
ANNR-0.0 


CONTINUE 
IF tNOD(I,J,KM1).EQ.0) GOTO 905 
ABB=0.0 
ABBR=0.0 


CONTINUE 
IF (NOO(I,J,KP1).EQ.0) GOTO 906 
AFF=0.0 
AFFR=0.0 
CONTINUE 


THEA KF HATHA IHE AKT TRS SHS SRR RRSA ERR SERS RF 
THEAAHHHHNHTH EMEA AAT AAHAA AH MMATHER RAHA RE HOHE ERT RH RE 


SU FROM NORMAL STRESS 


RH=(SIG22(1,J ,5К)-(У(1,УРІК)-У(1,)0 »K) JXVISN/DYN )*¥DZXN 
RS=(SIG22(I,JH1,K)-(V(I,J ,K)0-VGL o, JMl,K )).*VIZS/0YS )x0Zx>S 
RE-CSIGICUCIP1,J,K)-(CVCIPI,J,K-VCI,J  ,K))*VISE/DXE )»DYZE 
RH-(SIGI12(I  ,J,K)-OVUI. ,J,K !-VCIM1, AK ))*VISH/OXH )*DYZH 
RFZCSIG23(I,J,KP1)-(CVCI,J,APl)-VCI,J,K — ))KVISF/DZF )*OXYF 
RBz(CSIG23(1,2,K  )-(CVCI,JoK . )-VOI, J, KHM1) )*VISB/DZB )*OXYB 


SU FROM CURVED STRESSES ANO ACCELERATIONS 
AVG12z20.5X*( SIG12C IP1,J,K )*SIG12( I, J5K)) 
AVG23z0.5*( SIG23(I,J;KPl)*SIG230 I,J,K )) 


AVGll-SILIN(SIG11(I;J;,K ),SIG11( 1, JM1,K 2; DYN, DYS ) 
AVG33=SILIN(SIGZ3(1,J,K),SIG33(1I ,JM1,K),DYN,OYS) 
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00256200 
00256300 
00256400 
00256500 
00256600 
00256700 
00256800 
00256900 
00257000 
00257100 
00257200 
00257300 
00257400 
00257500 
00257600 
00257700 
00257800 
00257900 
00258000 
00258100 
00255200 
00258200 
00258400 
00258500 
00258600 
00258700 
00258800 
00258900 
00259000 
00259100 
00259200 
00259300 
00259400 
00259500 
00259600 
00259700 
00259800 
00259900 
00260000 
00260100 
00260200 
00260300 
00260400 
00260500 
00260600 
00260700 
00260800 
00260900 
00261000 
00261100 
00261200 
00261300 
00261400 
00261500 
00261600 


100 


C «χα 


C x*x 


500 


ς «χα 


502 


& 


AUZ=V(I,J,K) 
AUI-BILIN(CUCIPl,J) ,К),ЛІ,) 5,K),0¥I,DxXI, 
Ut IPL,JM1,K );Ut 1, JML K J;UX1, DXI  DYN,DYS) 
AUZ=BILINIWII ,J,KP1),HC(I ,J yK) yDZK yDZK;) 
WCI,JM1,KP1),WII,JM1,K),0ZK,02K, DYN,DYS) 


AR=SILIN(R(I,J,K),R(I,JM1,K),DYN,DYS ) 


ARULZ=AR*XAUL*AU2 
ARU?23-AR*AU?*AUZ 
ARU1l1-ARX*AUI*AUI 
ARUS3-ARX*AUS*AUZ 


RRX*(LAVG12-ARUI?2 )*D2Kx( DYE -DYM ) 

RRZ-(AVG23-ARU23 )*DXIx(DYF -DYB) 

RRYz(LAVGI1-ARUI1)*0ZKxt DXN-DXS )* 
( AVG33-ARU3 )*DXI*( DZN-D2S) 


APCI,J,K)SAEK(I,J,KO*AMWHCI,J,KO*ANCI,J,KO*ASCI,JSK) 
*AFCI,J,KO*ABCI,J,K)*AEE* AHH* ANN* ASS*AFF *ABB 
SPCI,J,K )2-CROD(CI ,J,K 1Ó*DYS*ROD(I,JM1,K )*DYH)/Ct DYS*DYN)*VOLDT 
SUII,J,K)* (ROD(I,J,KO)*DYS4ROD(I,JMI,K)UX*DYN)/COYS*DYNO)*VOLDOT 
xVOD(I,J,K) 


SUCI,J,K)*SU(I,J,K)40ZK*OXIX*(t PCI ,JM1,K)-P(I,J,K )) 
+AEER+AWWR+ANNR+ASSRIAFFR+ABBR 
*RE -RH*RN-RS*RF -RB«*RRX*RRZ -RRY 
-BUOY*(CCRCI ,J,K) -REGCI,J,KO)*DYS*U ROI , JML,K ) 
-REQ(I,JM41,K) *DYN)/CDYS*DYNOXVOLX*SIN(CZC(K ) )J*€SINCGXSCCI )) 
CONTINUES 


TAKE CARE OF B.C. THRU AN,AS,AEAW,AF,AB,SP AND SU 
RADIUS DIRECTION 


DO 500 K=2,NK 

DO 500 I-2,NI 

SP(I,32 yK)=SP(I,2 yK )+AS(I,EZ K) 
SUtI)3,K)=SU(I;)Z2,K )+AS(I,3 ,K)wV(I,2Oy K) 
AS(I,3,K)=0. 

ANEISHJ,K)20. 

CONTIMUEr 


CYLIC CCNOITIONS 


DO 502 K=2,NK 

DG 502 J=3,NJ 

SU(2 ,J,K)-SUI(2 ,J,KJ)*AWC2 ,JyK )wV( 1 »J 5K ) 
SUUNI ,J,K J=SUCINI ,J,K J#AE( NI ,J,K IJXVONIPL 9 Κ) 
AW 2 ›Ј,К )=0.0 

AZ(NI,J,K)=0.0 

CONTINUE 
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00261700 
00261800 
00201900 
00262000 
00262100 
00202200 
00202200 
00262400 
00262500 
00262600 
00262700 
00262800 
00262900 
00263000 
00262100 
00263200 
00263300 
00263400 
00263500 
00263600 
00263700 
00263800 
00263900 
00264000 
00264100 
00264200 
00264300 
00264400 
00264500 
00264600 
00264700 
00264800 
00264900 
00205000 
00265100 
00265200 
00265300 
00265400 
00265500 
00265600 
00265700 
00265800 
00265900 
00266000 
00266100 
00265200 
00200300 
00266400 
00206500 
00266600 
00266700 
00260800 
00266900 
00267000 
00267100 


KEK 


HEM 


600 


FRONT AND BACK WALL 


DO 600 I=2,NI 
DC 600 J=3,NJ 
JMisJ-1l 


SLIP HALLS 
SP(I,J,2)=SP(I,J,2 )+AB(I,J,2) 
SP(I,J,NK JESP(I JNK JOAF(I,J,NK ) 


AF(I,J,NKJ=0. 
AB(I,J,2)=0. 
CONTINUE 


R*UTRATERRETRTATHESARARTRREEARSRETHRETRRTRTETSETSERETRESTHESTERHETTTETTET 
xx* MODIFICATION FOR DECK BOUNDARIES 


102 


103 


DO 101 N=1,NCHIP 
IS=ICHPB(N} 
IE-IB*NCHPI(IN)-1 
IBMl-IB-1 
ΙΕΡΙΞΤΕ41 
JB=JCHPBIN ) 
JE=J3+NCHPJt(N)-1 
JBHM12JB-1 
ЈЕР1=ЈЕ +1 
KBzKCHPS(N) 
КЕ=КВ+МСНРКЕМ )-1 
KBM1=KB-1 
КЕР1=КЕ+1 


DO 102 J=JB,JE 

DO 102 K=KB>,KE-1 

SP(IEM1,J,K J=SP(IBM1,J,K )-AE(IBM1,J,K) 
AE(IEM1,J,K J=0.0 


SP(IE,J,KJ=SP(IE,J,K J-AW(IE,J>K) 
АМСІЕ,Ј,К 20.0 
CONTINUE 


DO 103 I=IB,IE-1 
DC 1035 К=КВ,КЕ-1 
AN(I,JBM1,K }=0.0 
ZSUTSJEPTIK)SO.0 
CONTINUE ` 


рО 106 І=ІВ,ІЕ-1 

DO 106 J=JB,JE 

SP(I,J,KBM1 J=SP(I,J,KBM1 )-AF(I,J,KBM1 ) 
AF(I,J,KBM1)=0.0 


SP(I,J,KE J=SP(I,J,KE J-AB(I 9 ΚΕ) 
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00267200 
00267200 
00267400 
00267500 
00267600 
00267700 
00267800 
00267900 
00268000 
00268100 
00268200 
00268300 
00268400 
00268500 
00268600 
00268700 
00268800 
00268900 
00269000 
00269100 
00269200 
00269200 
00269400 
00269500 
00269600 
00269700 
00269800 
00269900 
00270000 
C0270100 
00270200 
00270200 
00270400 
00270500 
00270600 
00270700 
00270800 
00270900 
00271000 
00271100 
00271200 
00271300 
00271400 
00271500 
00271600 
00271700 
00271800 
00271900 
00272000 
00272100 
00272200 
00272300 
00272400 
00272500 
00272600 


оо о 


OOOO 


τ 


~B(I,J,KE )=0.0 
106 CONTINUE 


FREER SS IHR STEAKS RKSHAARRSSERKSKSRRTS LRA STE RA ARAL ISE 
HAF HHA EKFERAERERTSTFKS HS KRFRRTESSRESR SSSA ERISRESRESSSKASRSSF 
**x* MODIFICATION FOR THE CELLS INSIDE OF THE DECKS 


DO 104 I=IB,IE-1 
DO 104 J=JB,JE 
0С 10+ К=КВ,КЕ-1 
SP(I,J,K)-2-1.0E20 
AWCI ,J,K )20, 
AE(CI,J,K)20. 
AS(I,J,KI=0. 
АН(1»27>К)50. 
SU(I,J,K3=0. 

104 CO'TINUE 

101 CONTINUE 

105 CONTINUE 


2-55-22 2 ---22-244-522----- 
525252525255 Е.5252335525 2: 
HEN ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 


DC 300 K=2,NK 
DO 500 J=3,NJ 
DO 300 I-2,NI 
ОХІ=хі(1,Ј,К,2,0) 
ВАКЕ2007,.27,К,2,0) 
D2X202K*DXI 
APLI JKIZAPII,J,K)-SPII,J,K) 
DV(I,J,KJ=DZX/AP(T I,K) 

309 CONTINUE 


жжж SOLVE FOR V 


CALL TRIO (2,3,2,NI,NJ,NK,V) 


00 7% I=2,NIP] 
DO 76 Jz2,HJPl 
VCI,J,1)-V(I,J,2) 
V(I oJ ,NKP1)-V(I 9 МҚ) 
74 CONTINUE 
ПО 79 I=1,NIP1 
DO 79 K=1,NKP1 
V(I,2,K)J=VII 535K) 
79 CONTINUE 
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00272700 
00272800 
00272900 
00273000 
00273100 
00273200 
00273300 
00273400 
00273500 
00275600 
00275700 
00273800 
00273900 
00274000 
00274100 
00274200 
00274300 
00274400 
00274500 
00274600 
00274700 
00274800 
00274900 
00275000 
00275100 
00275200 
00275300 
00275400 
00275500 
00275600 
00275700 
00275800 
00275900 
00276000 
00275100 
00275200 
00270300 
00276400 
00276500 
00270000 
00270700 
00270890 
00276900 
00277000 
00277100 
00277200 
00277300 
00277400 
00277500 
00277600 
00277700 
00277800 
00277900 
00278000 
00278100 


IF (NCHI 


РТЕЗ:092 СОТО“ 


MEEIIIITIIDLIDIIIDLIPTITIIIERIDTIIIIIITIPIIIIIIIIEIIIDIIEITIIIIIPIIII 


C 


LIITITIPIPIIPITPIIIEIIIIITILIILRPIEITIIIILIIERPIIIIIIII 


C *«* RESET THE VELOCITY INSIDE OF THE DECKS 


108 
110 
lic 


DO 110 N=1,NCHIP 
IB=ICHPBIN) 


IE=IB+NC 


НРІ(М)-1 


JB=JCHPBUN} 


JE=JB+FC 


HPJ(N)-1 


KB=KCHPB(N) 
KE-KB*HCHPKUN) -1 


DO 108 I 
DO 108 J 
DO 108 K 
V(I,J K) 
CONTINUE 
CONTINUE 
CONTINUE 


=IB,IE-1 
=JB,JE 
=KB »KE-1 
=0.0 


С 8η νη 5558 ΗΡΒΗΡ ΗΠ 55η 58 
С ЖЕЯЗЕЯВЧОНРФЕФЕВ THR FREK ATA A RA KK TRRR TP KRKRKEKRER KARL RHR ASR KF 


& 


& 


& 


& 


& 


& 


& 


& 


& 
& 


& 


RETURN 
END 
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SUSROUTI 


NE CALW 


EH HEH 3€ 3 3€ e 3€ 3€ X XC 3€ 3€ 9E 3€ 3€ € € 3€ IE IE IE IE HEHE IE IE IEE IE € 9€ 3€ 9€ 3€ 3€ € HE IEE 3€ 9€ € 3€ 3€ 3€ € EXE € 3€ EXE 3€ ж Ж 9€ E RE 
COMMON/R«&/XCt 93 ), YCL 92) ,ZCL 93 ) ,XSL 93) , Y5( 93 ) , 280 93) ; 


DXXCT( 93 ),DYYC( 93 ),DZ22Z2C( 93.) ,DXXS( 93) ,DYYS( 93 ),DZZ2S( 93 ) 


COMMON /BL1/DX ,DY ,DZ,VOL ,DTIME ,VOLDT , THOT ,TCOOL ;PI,Q,QR 
COMMON/BL7/HNI ;NIP1,;NIM1,NJ;,NJP1,NJH1;NK;NXPl,;,NKMIl 


;HIP2; 


NJP2 ,NKP2 ;NA,NAP1;NA!11,NS,NBP1;NBMl;KRUN;NCHIP ;NJRA ;NHRP 


COMMOi/BL12/ NHRITESNTAPE ;NTMAX O0 ;NTREAL TIME ;SORSUM, ITER 
COMMONZEL16/ CONST1,CONST2 ,CONST3 ,CONST4 , CONST o; NT ,UO;H ,UGRT ;BUOY 00282000 
CPO,PRT;,CONDO,VISO;RHOO;HR,TRSTA,DTEMP , THRITE;TTAPE TMAX,GC ;RAIROO28£2100 


СОММОН/Б 


(20/51611(22,16,52),51612(22,10,32),51622(22,16,52) 
>51615(22,16,32),51с23(22,16,52),51635(22,16,32) 


COMMON/BL22/ICHPB(10),NCHPI(10),JCHPB(10),NCHPJ(10),KCHFB( 10), 


NCHPK(10),TCHP(10),CPS(10},CONS(10),WFANC10) 


COMMON/BL31/ TOD(22,16,32),ROD(22,16,32) ,POD( 22,165,32) 


| COD: 2 
COMMON/E 


2216532), U0D(22,10,32),VOD(22,16532 ) »WOD( 22,165,32 ) 
L32/ 722516532 ),R0 22516532 3,P(22 516532) 


C(22516,32),Ut 22516532), VL 22516, 32) ,Ht 225165 32) 


COMMON/B 


, 


BET TA TPD(225,165,32 ),RPD(225105,32),PPDt 22516532) 
CPD(22,16,32),UPD( 22,16,32),VPD(22,10,32),WPDI22,16,32) 


COMMON/BL34¢/ HEIGHTU225,165,32) ;REQU 225165232), 
SMP(L225,16,32),SMPPL225,165,32) ;PPL 22516532), 


DUI 


22516532),DVt 22,165,232) )DWt 22516532) 


COMMON/BL36/AP(l22516532) ,AEL 22,165, 32) AH 22516, 32) , ANU225165 32) 


ASU225,165,32),AF( 225105, 32), ABUL 22516, 32), 
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00278200 
00278300 
00278400 
00278500 
00278600 
00278700 
00278300 
00278900 
00279000 
00279100 
00279200 
00279300 
00279400 
00279500 
00279600 
00279700 
00279800 
00279900 
00280000 
00280100 
00280200 
00280300 
00280400 
00280500 
00280600 
00220700 
00280800 
00280900 
00281000 
00221100 
00281200 
00281500 
00281400 
00281500 
00281600 
00251700 
00231800 
00281900 


00282200 
00222500 
00282900 
00282500 
09282600 
60282700 
00282800 
00282900 
00283000 
09283100 
00283200 
00283300 
00283400 
00283500 
00283600 


С жж 


С жж 


& 


& 


SP(22, ,16,32),SU(22,16,32) yRI(22,1o,32) 


00282700 


COMMON/SL37/ VIS(22,16,32),COND(22,16,323,NOD(22,16,32) »,RWALL( 579 )00283800 


»>CPN(20516:22),HSZ12;2 ),NHSZ(22,10,32) ,RESORM( 93 ) 


CALCULATE COEFFICIENTS 


DO 100 K=3,NK 
KP2=K+2 

КР1=К +1 

KH1=K-1 

KN2=K-2 

DO 100 Jz2,NJ 
JP22J*42 

JP1-J«*1 

JMl=J-1 

JM2=J-2 

DO 100 I=2;NI 
IP2=I+2 

15151491 

1М1=1-1 

IM2=I-2 
ШӘЗІГІ.Е0.22 ІМ2-МІНІ 
IF (I.EQ.NI) IP2=3 


CENTRAL LENGTH OF THE SCALE CONTROL VOLUME 


DXPl-XLLIIP1,J,K,3,0) 
DI -XLIUI 5J,K5,3,0) 
DXM1-XLUIM1,;J,K,3,0) 


DYPI=YL(I,JP1,K,3,0) 
DYJ =YL(I,J Κο) 
DYMlzYL(ii;JM1,K,5,0) 


02р1=21(1,Ј,КР1,5,0) 
DZK =ZL(I,J,K 53,0) 
02М1=21(1,Ј,КМ1,35,0) 


SURFACE LENGTH OF THE CONTROL VOLUME 


DXN=XLUI ,JP1»K,352) 
DMS="LUI ,J yK 2,2) 
ὈΕΞΣΙ (1 9 ΚΡι,2,2]) 
DXB-XLli,;J,K »553) 


DYF-YLLIJ,KP1,23,23) 
DYB=YL(I,J,K 5353) 
CYE=YL(IP1,J>,K>3,>1) 
DYH=YL(I1 ,2.,К,5,1) 


DZEzZLLIP1,J;,K,3,1) 
DZH-ZL(I »J5K53551) 
DZN-ZLIUI,JP1;K5,3,2) 
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00283900 
00284000 
00284100 
00284200 
00284300 
00286400 
00284500 
00284600 
00284700 
00284800 
00284900 
00285000 
00285100 
00285200 
00285300 
00285400 
00285500 
00285600 
00285700 
00285800 
00285900 
00256000 
00286100 
00286200 
00286300 
00286400 
03286500 
00286600 
00286700 
00286800 
00286900 
00287000 
00287100 
00287200 
00287300 
00287400 
09287500 
00227600 
00287700 
00287800 
00287900 
00288000 
00283100 
00223200 
00258500 
00288400 
00288500 
0028800 
00288700 
00288800 
00288900 
00289000 
00289100 


C REX 


С жж 


C xxx 


& 


025=21(1,Ј ,›К,3,2) 


CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME 


DXEE-ZALCCIP2,J,K5,3,1) 
ОХЕ -XLLIP1;,J,K5,3,1) 
DXM =xL(I sJ Ky 3251 | 
DXHH-7XLUIM1,;J,K53,1) 


DYNN-YL(I,;,JP2,K,3,2) 
DYN =YL(1I,JP1,K,3,2) 
DYS =YL(I,J K 5352) 
DYSSzYL(I,JM1,K,3,2) 


DZFF-zZL(CI,J,KP2,3,2) 
DZF -2L(I,J,KP15,3,2) 
DZB =21(1,Ј,К 53,3) 
DZBB=ZL(I,J,KM1,3,53) 


DEFINE THE AREA OF THE CONTROL VOLUME 


ΡΧΥΕΞΡΧΕΧΡΥΕ 
DXYB=DXB*DYB 
DYZE=DYE*DZE 
DYZH-zDYW*D2H 
DZXN=DZN*DXN 
DZ*%S=DZS¥*DXS 


VOL=DXI*DYJ*DZK 
VOLDT=VOL/DTIME 


ZXOYN=DZXN/DYN 
ZXOYSzDZXS/DYS 
XYOZF -DXYF/DZF 
XYOZBzDXYB/D2B 
YZONE-DYZE/DAE 
Y ZOXK=DY ZW/DXW 


USE SINGLE AND BI-LINEAR INTERPOLATION TO EVALUATE 
PHYSICAL PROPERTIES AND FLUX ON THE SURFACES. 


GNF -STLIN(I(GRCI JP 1,K 


J RII, JK 


),DYP1,DYJ)*¥V(I,JP1,K ) 


GHNB=SILIN(R(I,JP1,KM1),R(I,J,KM1},DYP1,DYJI*V(I,JP1,KM1 ) 


GSF=SILIN(R(I ,JM1>K 


GF =SILINM(R(I,)J,KP1),R(I,J K 


))RCOI,J,K 
GSB-SILIN(GRGIL ;JM1,;KM1),RCI,J,KM1),DYMl1,DYJOX*V(I,;J 


);)DYM1,DYJOXV(I,J κ ) 
»KM1) 


) DZFF ,DZF JXWN(I,J,KPI1) 


GP =SILIN(R(I,J,KH1),R(I, JK ),DZB ,DZFIXWN( IJK ) 
GB =SILIN(R(I,J,KM2),R(I,J,KM1),D0Z28B,DZB JXWN(I,J,KM1) 


GEF-SILINGRCIP1,J,K 


);RCI,J,K 


),ОХРІ,0ХІ )ж0(1Р1,Ј,К ) 


GEBSSILIN(R(IP1,J>»KM1),R(1I,J,KM1),DXP1,DXI )xU(IP1,J,KM1) 


GhF-SILIN(GR(CIM1,J,;K 


)yR(I,JyK 


},DXM1,DXI)¥UCI ,Ј,К ) 
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00289200 
00289300 
00289400 
00289500 
00289600 
00289700 
00289800 
00289900 
00290000 
00290100 
00290200 
00290300 
00290400 
00290500 
00290600 
00290700 
00290800 
00290900 
00291000 
00291100 
00291200 
00291300 
00291400 
00291500 
00291600 
00291700 
00291800 
00291900 
00292000 
00292100 
00292200 
00292300 
00292400 
00292500 
00292600 
00292700 
00292890 
00292900 
00292000 
00293100 
00293200 
002°3300 
00293400 
00295500 
00293000 
00293700 
00292800 
00293900 
00294000 
00294100 
00294200 
00294300 
00294400 
00294500 
00294600 


& 


& 


& 


& 


GHB-SILIN(R(CIM1,J,KMl1),RECI,J,KM1),DXM1,DXI )*«U(I — ,J,KM1) 


CFz0.5x(GF*GP I1*DXYF 
CBz0.5*( GP*GB )*xDXYB 


CN=SILIN( GNF ,GNB,DZF ,0ZB )*DZXN 
CS=SILIN(GSF ,GSB,DZF ,D0ZB )*DZXS 


CE=SILIN(GEF ,GEB,DZF ,DZB )*DYZE 
CWH=SILIN(GWF ,GNB,DZF ,DZB )xDYZW 


VISF=VIS(I,JK ) 
VISB-VIS(I;J,KM1) 


VISN= (VIS(I,JP1,K )+У15(1,Ј,К )* 
VIS(I,JP1,KM1 )+#VIS(I,J,KM1))/4.0 
VISS= (VIS(I,JM1,K J4#VIS(I,J,K )+ 
VIS(I,JM1,KMl)*VIS(I,J,KM1))/4.0 
VISE- (VISCIP1,),K )+*VIS(1,J,K )+ 
VIS(IP1,J,KM1)+VIS(I;)JyKH1))⁄%&.0 
VISW= (VIS(IM1,J,K  )*VISII,J5K )+ 
VIS(IM1 J ,KM1)+VIS(I,J,KH1))⁄/%.0 


VISN1=ZXOYN*VISN 
У1551:2Х0Ү5%У155 
ΞΙΞΥΖΟΛΕΧΜΙΞΕ 
VISN1=YZOXWN*VISW 
VISEISXYCZF*VISF 
VIS31=XYOZB*VISB 


CEP=( ABS(CE )+CE I¥DXPI*XDXI/{DXE*{DXE+DXW ))/8. 
CEM=( ASS(CE )-CE JX¥DXP1*CXI/( DXEX(DXE+DXEE J 378. 
CWP =( ABS( CW J +CW IX DXMN1*DXI/( DXWX ( DXN+DXHH ) )/8. 
CHMz(ABSUCR)-CHO)«DXHMIXDAIZGDXWXGDXHW*DXE  ))/8. 


CHP-z(ABSCCNO*CN )*DYPI1xDYJ/GDYN*UDYN*DYS ))/8. 
CNM=( ASBSICN I-CN *DYP1*DYJ/( DYN=( DYN+DYNN) 378. 
CZP-(tABSCCS )8CS J*DYM1xDYJ/Ct DYS*C DYS*DYS3) )78. 
CSMz-(45S(CS )J-CS J«DYMI*DYJ/CDYS*CDYS*DYN. ))/8. 


CFPz(ABSCCF )«CF )*DZF/DZK/16. 
CFM=( ASS(CF J-CF 1*DZF/0Z2P1/16. 
CBPz(£4BSi CBE )*CB )*D2B/D2H1/16. 
CBM-(ABSICB ) -CB )*x02B/DZr. 716. 


AECI,J,K!2-.5xDXI/DXE*CE *CEP*CEMX(1. «DXE/DXEE ) 4 CHM* DXH/DXE * VISE1 
AR(I,J,KI= .5*XDXI/DXNXCH+CHM+CHP (1. +DXWN/DXWW )4 CEPXDXE/DOXH* VISH1 
ANC I,J,K )=-. 5*DYJ/DYN*CN+CNP +CNM¥( 1. +DYN/DYNN J)+CSM*DYS/DYN¢#+VISNI 
AS(I,J,K)= .5*¥DYJ/DYS*CS+tCSM+CSP*(1.+DYS/DYSS )+CNPXDYN/DYS+VISS1 


AFCI,J,K)2-.5xCF*CFP*CFMX*C1. *DZF/DZFF ) £CBM*DZB/DZF*VISF1 
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00294700 
00294800 
00294900 
00295000 
00295100 
00295200 
00295300 
00295400 
00295500 
00295600 
00295700 
00295800 
00295900 
00296000 
00296100 
00296200 
00296300 
00296400 
00296500 
00296600 
00296700 
00296800 
00296900 
00297000 
00297100 
00297200 
00297300 
00297400 
00297500 
00297600 
00297700 
00297800 
00297900 
00298000 
00295100 
00298290 
00298300 
00295400 
00298500 
002°8600 
00293700 
00298800 
00298900 
00299000 
00299100 
00299200 
00299200 
00299400 
00299500 
00299500 
00299700 
00299800 
00299900 
00500000 
00520100 


C 
C 
C 


AB(I,J,KIJ= .5x*xCB4CBM*CBPX(C1. 4DZB/DZBB )*CFP«DZF/DZB*VISDI 


801 AEE=-CEM*DXE/DXEE 
AEERZASEXHPDIIP?2,J,K) 
802 CONTINUE 


805 AHWH--CHP*DXWH/DXMHH 
ANWR =AWRRWPDCIM2Z 5J>K J 
804 CONTINUE 


IF (J.LT.NJ) GOTO 805 
ANN=0. 
ANNR=0. 
GOTO 806 
805 ANNZ-CNHX*DYN/DYNN 
ANHRzZANNXWPD(UI , JP2,K) 
806 CONTINUE 


IF (J.GT.2) GOTO 807 
ASS-0. 
ASSR=0. 
GOTO 808 
807 ASS--CSP*DYS/DYSS 
ASSR-ASSXAPD(I,;JM2,;K) 
808 CONTINUE 


IF (K.LT.NK} GOTO 809 
AFF=0. 
AFFR=0. 
GOTO 810 
809 AFF=-CFM*DZF/DZFF 
AFFRZAFFXWPD(I,J,KP2) 
810 CONTINUE 


TE Gr.s$J9 GOTO 811 


AB5=0. 
ABSR=0. 
GOTO 812 


811 АРВ=-СВР=026/02В6 
ADOGR-ABB*HPD(I,J,KM2) 
912 CONTINUE 


Πα .ακα.τκαποαααακααοΣΣΣΣΣΣΣΣΣΣΣΣΣΣ 
WH WT TH TU AHH AN ANT THAR TER ORAM HERTHA eT 
D 


x*xx MODIFICATION, FOR DECK BOUNDARIES 


900 CONTINUE 
IF (NODC IM1,J,K}.EQ.0} GOTO 901 
Α’ΦΙΞ0.0 
AWWR=0.0 


901 CONTINUE 
IF (NOD(IP1,J,K).EQ.0) GOTO 902 
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00500110 
00300129 
00300200 
00300300 
00300400 
00300500 
00300600 
00200700 
00300800 
00300900 
00301000 
00301100 
00301200 
00301300 
00301400 
00301500 
00301600 
00301700 
00301800 
00301900 
00302000 
00302100 
00302200 
00302300 
00302400 
00202500 
00202600 
00302700 
00302800 
00302900 
00303000 
00303100 
00505200 
00303300 
00303400 
00303500 
09303600 
00303700 
00303800 
00303900 
00304000 
00204100 
00304200 
00304300 
00304400 
00304500 
00304600 
00204700 
00304800 
00304900 
00305000 
00305100 
00305200 
00305300 
00305400 


903 


90% 


905 


906 


+ 


Ч% 3) 


ΧΧΧ 


FRR 


2558 
тт 


тк? 
525 32222225224 225332522325255235563254 


ЖЕЕ-р;0 
АЕЕК59.0 


CONTINUE 
IF tHOO(I,JM1,K).EQ.0) GOTO 903 
ASS=0.0 
aSSR=9.0 


CONTINUE 
IF (NOD(I,JP1,K).EQ.0) GOTO 904 
ANN=0.0 
ANNR=0.0 


CONTINUE 

IF (NOD(I,J,KM2).EQ.0) GOTO 905 
АВВ=0.0 

aBBR=0.0 


CONTINUE 
IF (NCD(I,J,KPl).EQ.0O) GOTO 906 
AFF=0.0 
AFFR=0.0 
CONTINUE 


224-2242 


SU FROM NORMAL STRESS 


RF=(SIGS3(I,J»K  )-(WH(OI,J,KPlO-H(OI,J,K ))%wVISF/DZF )*OXYF 
RB=(SIGZZ(I,J»MM1lI-(RII,J>K — )-HCI ,2,KM1))X*VISB/D2B )*OXYB 
RNz(SIG23(I,JPl,K )-(HUI,JPl,K )-H(CI,J  ,KO)*VISN/OYN 1*DZXN 
RS-(SIG23(I,J ОК)-ІМ(ІІ,») SK )-HOL ,JM1,;K 0 I*VISS/0YS  DZXS 
RE-(SICISUIPI,J,K)-(WHCIPl,J,K)-W(I — ,2,K 1 )*VIGE/DXE )*D'TZE 
RN-(SIG1S(I  ,J,K)-(WH(I  ,J,K)-HCIM1,;J,K)*VISH/OXH )«DYZH 


SU FROM CURVED STRESSES AND ACCELERATIONS 


AVG2320.5*( SIG23( I,;JPl,K )4SIG23(15,J,K)) 
2912-0, 5*t S1GISCIPI, J;K )SSIGISCI;J, X0) 
ANVG22-SILIN(GSIG22(I1,J,K ),SIG22(I,J,KHM1),02F 028) 
ENGll:zSILIN(SIG11(I,J,K), SIG11( I,J,KHM1),02F,02B) 


AUS=H(I,J,K) 

AU?Z-BILIN(CVCI,JPl,K J,Vil,JK — )5,0Y2,0YJ; 

& VCI  JP1,KM1),VECI,J,KM1)0,DYJ,DYJ, OZF,02B) 
AUl-BILIN(U(IP1,;,J;K );UCI,J,K );,DXI,DXZI, 

& U( IP1,;J,;KM1),U(I;,;J,KM1),DXxXi,DXI, 02Ғ,02В) 


AR=SILIN(R(I>J,K),R(I,J,KM1),D02F ,0ZB) 
ARU2Z3=AR*®AUZ*AUS 


ARU13=AR*AU1*AUS 
ARU22-AR*AU2*AU2 
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00395500 
00595600 
00305700 
00305800 
00305900 
00306000 
00306100 
00306200 
00306300 
00306400 
00306500 
00306600 
00306700 
00306800 
00306900 
00307000 
00307100 
00397200 
00207300 
00307400 
00307590 
00207600 
00307700 
00307800 
00307900 
00308000 
00308100 
00308200 
00308300 
00308400 
00308500 
00308600 
00303700 
00308800 
00303900 
00309000 
00309100 
00309200 
00509200 
00309400 
00209500 
00309600 
00309700 
00209800 
00309900 
00319000 
00310100 
00310200 
00310300 
00310400 
00210500 
00310600 
00316700 
00310800 
00310500 


ARU11=AR*AU1%*AU1 00311000 
00311100 

RRY=(AVG23-ARUZ3 IXDXI*¥( DZN-DZS ) 00311200 

RRX=( AVG13-ARUL3 IXDYJ*( DZE-DZHW) 00211300 
RRZ-UAVS22-ARU22 )*DXI*( DYF -DYB )« 00311400 

( AVG1l1-ARU11 )0*DYJ*( DXF -DXB ) 00311500 

00211600 

00211700 

AP(I,J,K)XAE(I,J,K)*AH(I,J,K)+AN(I,J,K)MYAS(I,J,K) 00311800 
+AF(I,JyK)+AB(—(1I,J,K )*AEE+ANHN+ANN+ASS+AFF +ABB 00311900 
SP(I,J,K))=-(ROD(I,J,K )XDZB+ROD(I,J,KH1)%DZF )/( DZB*DZF )*VOLDT 00312000 
SULI,;J,;K)* (ROD(IJ,K)XxDZB*ROD(IJ;,KM1)0*DZF )/(DZB*DZF )*VOLDT 00312100 
*¥WOD(I,J,K) 00312200 

SU(I,J,K )<SU(I;J)K)+DXI%w%DYJ*%*(P[(I,J,KH1)-P(I,J,K)) 00312300 

& *tAEER*AWHR4ANNR*ASSR*AFFR*&ABBR 00312400 

& +RE-RhH+RH-RS+RF-RB+RRY+RRX-RRZ 00312500 

& -BUOY*((RII,J,K J-REQ(I,J,K ) IXDZ8*COS(ZC(K ) JFtORII,J; 00312600 

8 KN1IJ-REQ(I,J,KM1 ) )*DZFXCOS( ZCCKM1 ) )I/(0Z2B4+DZF JXVOL¥SINE XC(TI ) ) 00312700 

100 CONTINUE 00312800 
00312900 

C «κκ TAKE CARE OF B.C. THRU AN AS AE, AH AP AND SU 00313000 
C 00313100 
С жж RADIUS DIRECTION 00313200 
00313300 

DO 500 K=3,NK 00313400 

DO 500 I-2,NI 00313500 
ЕМіск-1 00313600 

CE SPLI;2,K)sSPCI2,K )*ASE I1, 25K ) 00313700 
SPCI,2,K )-SP(I,2,K )-ASECI,2,K) 00313800 
SULI2,KH )7:SUCI,2,K )1*$2.0* HL I, 31K )JXASCI,2,K) 00313900 
SP(I,NJ,K J=SP( INU K JeANCI ΝΟΚ) 00314000 
AS(I,2,K )=0. 00314100 
АМ(І»М.),К)20. 00314200 

500 CONTINUE 00314300 
00314400 

С жж СҮҮС CONDITIONS 00214500 
00214600 

DO 502 K-3,NK 00314700 

DO 502 J=2,NJ 00214800 

SUZ ;);J,K)=SU(2 ,J,K )*AIN(2 ,J9,K )XHEC1 ЭК) 00314900 

SUC HI,J,K JSSUCNI ,J,K O)*AECNI; JK J&H(GNIP1,J,K ) 00315000 

ARI? 2/>К150.0 00225100 
АҒ(МІ».25ЬК)20.0 00215200 

502 CONTINUE 00515200 
00315400 

ς «κκ FRONT AND BACK WALL 00315500 
DO 600 i=2,NI 00315600 

DO 600 J=2,NJ 00315700 
SPLUI,J,NA)-SPOIL,J;NKO*AFCGI So; JSNX ) 00315800 
SP(I,J,3 J=SP(I,J,5 J+ABl(I,J,3 ) 00315900 
AF(I,J,NKJ=0. 00316000 
ABII,J,3)=0. 00316100 

600 CONTINUE 00316200 
00316300 

00316400 
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if (NCHIP.EQ.0) GOTO 105 


С FATHER ELTRAFRSRKSK KKK KRSKRRRKKIREKKRARISK ERR KERR KH KAAE 
С FHF SHVAERERERASRKHERAKHRRAH SERRA RRA RRRER ERS 


C ww 


102 


106 


С жя» 


MODIFICATION FOR DECK BOUNDARIES 


DO 101 N=1,NCHIP 
IB=ICHPBIN) 
IE=IB+HCHPI(N)-1 
IEM1=IB-1 
IEP1=IE+1 
JB=JCHPB(N) 
JE=JB+NCHPJ(N)-1 
JBM1-J8-1 
JEP1-JE*1 
KB=KCHPBI(N ) 

KE =KS+NCHPK(N)-1 
КЭМІ=КВ-1 
КЕРІ=КЕ +1 


DO 102 JzJB;JE-1 

DO 102 K=KB>KE 

SPI IBM1,J,K )J7SPCLIBM1,J,K )-AECIBM1,;,J,K) 
SULIBM1,J,K)zSULIBM1,;J;K O*AECIBMIJ,K XHFANCN 1*2.0 
АЕ ‹ІВМІ,Ј,К )=0.0 


SP(C(IE,J,K)zSPUIE;J,K ) -ANCIE, J,K) 
SULIE;J.K)ZSULIE,J,K)*AHCIEJ,K DXHFANCN)X2.0 
АК(ІЕ ,Ј,К )=0.0 


CONTINUE 


DO 105 I=i8,IE-1 

рО 105 K=KB>KE 

SP(I,2B 1 ,K)=SP(I,JBMH1,K )-AH(I,JBH1,K) 

SU(I,)JBMM1 K )=SU(I,JBH1,K )*AN( I , JBH1 K )XWFAN(N )*2 . 0 
ANCCE JBM1,K)-20.0 


SP(I,JE,K)=SP(I,JE,K)-AS(I,JE yK) 

CUUTS JE y K J=SUl I » JE К )*AS(I › ЈЕ x K ІҰНҒАМ(М90%2.0 
AS(I,JE,F )=0.0 

CONTINVE 


СО 106 ІзІР,ІЕ-1 

DO 10e J-Jo55Jt-1 
SULI;,J,KBM1)zSULI;;J,KBMl1)*AF(LI,J,KBMI )*HFANCGN) 
SULI,J,KEPl1)-SULI,J;KEP1)*ABUIJ,KEPl)*WHFANCH) 
AFCI,J,KBM1)20.0 

AB(I,J,KEP1)=0.0 

CONTINUE 


FOR THE CELLS INSIDE OF THE DECKS 
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005216500 
02515600 
00316700 
00216800 
00326900 
00317000 
00317100 
00517200 
00217200 
00317400 
00317500 
00317600 
00317700 
00217800 
00217900 
06318000 
00318100 
00218200 
00318300 
00218400 
00218493 
00318500 
00318600 
00313700 
00518710 
00318800 
00318900 
00319000 
00319100 
0С519110 
00519200 
00319300 
00319400 
00519500 
00319000 
06319700 
00319800 
00319810 
00319900 
00320020 
00220100 
C0320110 
00320200 
09520200 
00520600 
00220500 
00520600 
00320010 
00320620 
00320700 
00320800 
00320900 
00321000 
00321100 
00321200 


C 
C 


С 


OOO 


DO 104 I-IB,IE-1 
DO 104 J=JB,JE-1 
DO 10% K=KB KE 
SP(I,J,K 1=-1.0E2 
АНІ, 2,К1=0. 
AE(I,J }Ξ0. 
AS(I,/,K J=0. 


ANCI,J,K)20. 
ABLI,Jo,K) - O. 
AF(I,J,K} = O 


SU(I,J,K}=1.0E2 *%* HFAN(N) 
104 CONTINUE 
101 CONTINUE 
105 CONTINUE 


SUTRTERRERSTTHSARHEBETERREHHETTHTHRRTETRRTRERS 
11 ΑΘΛΙΑ ο ΙΙ ΣΣ ΣΣ ΣΣ; 


HHH ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 


DO 301 K=3,NK 
DO 301 J=2,NJ 
DO 2301 I-2,NI 
DXI-XL(CI;J,K5235,0) 
DYJ=YL(I,JK,350) 
DXY -DXI*DYJ 
AP(I,J,K J=AP(I,J,KI-SP(I,J,K) 
DWC TF »>J>K J=DXY/AP(I,J>5K) 

301 CONTINUE 


HHH SOLVE FOR W 


CALL TRID (2,2 53,NI>NJ,NK>W3 


DO 76 I=1,NI 

DO 76 J=1,NJ 

WOIS,J,2!zHI 45,3) 

КІ, Ј,МКРІ )= МІ, Ј,МК) 
76 CONTINUE 


IF (NCHIP.EQ.0) GOTO 112 
FEF ER AAR HADAHAAAAAAANEAARTAR ARANDA AHRHMATARARAAA TN THAR A HET 
252222243522 225222252224 
%**"RESEI THE VELOCITY INSIDE CF THE DECKS 


DO 110 N=1,NCHIP 
IB=ICHPBI(N) 
IE=IB+NCHPI(N)-1 
JB=JCHPBIN) 
JE=JB+NCHPJ(N)-1 
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00221300 
00321400 
00321500 
00321600 
00321700 
00321800 
00321900 
00322000 


00322100 
00322200 
00222300 
00322400 
00322500 
00322600 
00322700 
00322800 
00322900 
00323000 
00525100 
00323200 
00323300 
00323400 
00323500 
00323600 
00323700 
00323800 
00323900 
00324000 
00324100 
00324200 
00324300 
00324400 
00324509 
00324600 
00324700 
00324800 
00324900 
00325000 
00325100 
00325200 
00325300 
09525400 
00325500 
00225600 
00325700 
00225800 
00325900 
00226000 
00226100 
00326200 
00326300 
00326400 
00326500 


108 
119 
112 


ς «κκ 


KB=KCHPBIN} 


KE-KB*NC 


DO 108 I 


hPK(UN )-1 


-ІВ,ІЕ-1 


CO 108 J=JB,JE-1 


CO 103 K 
WIS JoK) 
CONTINUE 
CONTINUE 
CONTINUE 


RETURN 
END 


=КЗ ,КЕ 
=WFAN(N) 
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SUBROUTI 


NE CALP 
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& 


& 


& 


& 


& 


& 


& 
& 


& 
& 
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COMMON/R 


COMMON/B 
COMMON/B 


›»МІРе,МЈРг ‚МР2 ,МА ,МАРІ,МАМІ ,М№З ,МВРІ,МВМ1 , КАОМ,НСНІР ,МЈКА ,МИКР 


COMMON/B 


9/ХС( 95),ҮС(92),2С(95),Х5(92),Ү5(92),25192), 
DXXC(93),DYYC( 93) ,DZ2ZC(V 93 );DXXS(t93 ) ,DYYSCOS ) )D22SCU93) 

ον DY Í| DZ ;VOL ο ΤΙΣ »VOLDT » THOT Í| [COOL PI | Q ;QR 

L7/NI,NIP1,NIM1,;NJ;NHJPl,NJMl,NK,;NKP1,;,NKM1l 


L12/ HHRITE;NTAPE ;NTHAXO ;NTREAL ;TIME ;SORSUM,ITER 


00325600 
00226700 
00320791 
00326800 
00326900 
00327000 
09327100 
00327200 
00527500 
00227400 
00227500 
00227600 
00227700 
00227800 
00527900 
00328000 
00328100 
20228200 
00328300 
00328600 
00328500 
00328000 
00228700 
00322300 
00328900 


COHMON/BEL1e/ CONST1,COHST2,CONSTZ2,;,CONHST4 ,CONST6 ;NT ,»U0 >H,UGRT ,BUOY ,0032°000 
& | CPO;PRT,CONDO,VISO,RHCO;HR,TR,TA,DTEMP ; THRITES;TTAPE,TMAX,GC,RAIROO229100 


COMHON/B 


L22/ICHPBi10),NCHPI(10},JCHPB(10 ) ,NCHPJ(10),KCHPB( 10}, 
NOHPK(10),TCHP(10},CPS(10),CONS( 10) »WFAN(10) 


COMMON/EL3Z1/ ТОр( 22,10,32 ),КОр( 22,16,32 ),POD(22,16532) 


Í COD ( 2 
COMMON/B 


> 


25;105,32),UO0D(225,165,32),V00(225,16,32 ) ,H0D( 225105 322) 
L32/ 7Т(22,16,252),8(22,16,22),Р(22,16,52) 
C(225;10532),U( 2216,32) , V(22,16,Z22 ),H(t 22,516.32) 


COMMON/BL33/ ТРО0( 22,16,52 ),ВРО{ 22,10,32 ),РРО( 22,16,32) 


- 


COMMON/B 


CFD(22510,32),UPD(22516,32), VPD( 22516, 22 ),WPD( 22516522) 
139/ НЕІСНТ( 22,16,52 ),КЕЧ( 22,16,52), 


5М2(22,16,52),5МРР(22,16,52)ЬРР(22,16,52), 


DUI 


COMMON/8LZo/AP(225»165,22),AEL 22516, 22 ) , 4K0U 225165, 22 ), ANC22,16, 22), 


SPI 


225lo » 32 J} DVI 22 216,32); D 22 »16 22021 


ASI 22,10,52 БАЕ 22,10,52 ),АВІ 225352)» 
25516552)55U(22,160532),;RIC22510552] 


00329200 
00329300 
00229400 
00329500 
00329600 
00329700 
00329800 
00229900 
00330000 
00330100 
00250200 
00230300 
00550400 
00520500 


COMMON/BLS7/ VIS(22,10,321,CONDi 22,10,32),NOD( 22516532 }»RWALL( 579 J00550000 


> 


CPM(22,16,32 ),HSZ( 3,2) yNHS2(22,;16y322)yRESORhN( 93 ) 


CALCULATE COEFFICIENTS 


DO 100 K 
KP2=K+2 
KPL=K+] 
KMI=K-1 
КМ2=К-2 
DO 109 J 
JIPZ=J+2 
JP1zJ*1 
JM1-J-1 


ze NK 


=2,NJ 
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00330700 
06250800 
00220900 
00331000 
00251100 
00551200 
060221300 
00551400 
00331500 
00551600 
00331700 
00331800 
00331900 


C www 


C *x* 


JM2-J-2 

DO 100 I-2,NI 

τρ ττνς 

IP1=I+1 

IMISISI 

τις τς 

IF (I.EQ.NI) IP1=2 


CENTRAL LENGTH OF THE SCALE CONTROL VOLUME 


DXP1-XLCCIP1,J,K,050) 
ΠΧ =xL(I »J5K 5,050) 
DXM1zXLLIM1,J,K,0,0) 


DYP1l=YL(I,JP1,K,0,0) 
ΟΥ.) zYL(I,J »K,0,0) 
DYM1=YL(I,JM1,K,0,0) 


DZP1=ZL(I,J,KP1,0,0) 
DZK =ZL(I,J,K 1,0,0) 
DZH1=ZL(I,)J )KH1,)0,;0) 


SURFACE LENGTH OF THE CONTROL VOLUME 


OXN=KL(T,JP1,K 5,052) 
O~S=XL(I,J 35K50521 
DXF -XLCI,J,KP1,0,23) 
DXB=XL(I,J»K 5,053) 


DYFzYLLLUI,J,KP1,0,3) 
DYB=YL(I,J,K 50,3) 
DYE-zYLCIP1,J,HK,0,1) 
DYN-YL(I  ,J,K,051) 


OZE=ZL(IP1,J,K,0>51) 
DZMKzZL(I σύ λΚ 01) 
DZN=ZL(I1,JP1,K,0,2) 
0265:21(1,.) ΣΚ 0.2) 


DEFINE AREA OF THE CONTROL VOLUME 


OXY F =DXF*DYF 
ὈΧΥΒΞΟΣΒΧΌΥΒ 
ΡΥΖΕΞΟΥΕΝΡΖΕ 
DYZHzDYW*DZH 
DZXNZDZN*DXN 
DZXS-DZSxDXS 


VOL-DXI*0YJ*DZK 
VOLDT=VOL/OTIME 


RN=(R(I)J,K)%DYP1+R(I,JP1,K)w%wDYJ)Z/(DYP1+DYJ) 
RSz(ORCI,;J,K )J*DYMl*RCI, JMI,K)xDYJ)/C(CDYM1*DYJ) 
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00222000 
00332100 
00332200 
00332300 
00332400 
002225920 
00552600 
00322700 
00332800 
00332900 
00333000 
00333100 
00333200 
00333300 
00333400 
00333500 
00333600 
00333700 
00333800 
00333900 
00334000 
00334100 
00334200 
00334300 
00224400 
00224500 
00334600 
00324700 
00334800 
00534900 
00335000 
00335100 
00325200 
00335300 
00335400 
00335500 
00335600 
00335700 
00335800 
00335900 
00230000 
00236100 
00236200 
00230300 
00326400 
06336500 
00226600 
06336700 
00336800 
00236900 
00337000 
06337100 
00337200 
00337300 
00337400 


C 


(ey O 


RFR 


100 
== 


HEN 


569 


501 


HK 


502 


REZCRUT,J,K )* DXP1*RL IP1,J, K O*DXI )/t DXP1*DXI ) 

RA-URCLI,J,KO*OXMI*RLIM1,J,K O)*DXI )/t DXt1*DXI 

RF=(R(I,J K >=DZP1+R(I,)J,KP1)>*O0OZK)/(DZP1+DZK ) 

RBzIR(I,J)K)*x02M1+Rt(I,J )KH1)=DZK )⁄/ (DZH1+DZK ) 
DU ON VERTICAL WALLS АМО DY ON HORIZENTAL WALLS ARE ZERO 

AN(I,J K )zRN%wDZXNxDV(I,JP1,K) 

AS(I,J,K )=RS*DZ*%S¥DV(I,J,K) 

AECI;J,K!-REXDYZE*OU(CIP1,;,J,K) 

AHCI  J,K)ZzRH*OYZH*OUCI;,JSK) 

AFCI,J,K)SRFXxDXYFX*ONHCUI,J,KP1) 

AB(I,J,K J=RB¥DXYB*XDWII ,J,K) 


CN=RNXV(I,JP1,K JXDZXN 
CS=RSwVII,J y,K)*DZXS 
CE=REXU(IP1,J,K JXDYZE 
CN=RWHU(IT — ,J,K O*DYZH 
CFzRF*HLI,J,KPl)*OXYF 
CB-:RB*HWCI,J,K  )*DXYB 


SMPL(I,J,K!z-GRUI,J,K)-ROOCI;,J,K ) *VOL/DTIME -CE «CH-CN«CS-CF «CB 
SMP(I,J,K 1=-CE+CW-CN+CS-CF «CB 

SU(I,,J,K):SMP(I;,JoK) 

ЅР(І.Ј,К 220. 

CONTINUE 


TAKE CARE OF B.C. THRU AN,AS,AE,AW,AF ,AB,SP AND SU 
RADIUS DIRECTION 


DO 500 Kz2,HK 
DO 500 I-2,HI 
А5(1>25К9-0. 
АМ(І»МӘУ>К)20. 
CONTINUE 


LEFT WALL ANO RIGHT WALL 


DO 501 K=2,NK 

09 501 J-2,HJ 

AWU2 ,J25K ZO. 

АЕСНІ,Ј,К 50. 

CONTINUE 
FRONT AND BACK WALL 

DO 50? I=2,NI 

CO 502 J=2,NJ 

БЕСІ: 2,2 )2:0.0 

AF(I,J,NK }=0.0 

CONTINUE 
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00237500 
00337600 
00227700 
00337800 
00327900 
00338C00 
00338100 
00238200 
00328300 
00338400 
00338500 
00338600 
00338700 
00338800 
00338900 
00339000 
00339100 
00539200 
00339300 
00339400 
00339500 
00339600 
00339700 
00559800 
00259900 
00540000 
00340100 
00340200 
00340300 
00340400 
00340500 
00340600 
00340700 
60540800 
00340900 
06341000 
00541100 
00241200 
00341300 
00241490 
00341500 
00341000 
00341700 
060241800 
00531900 
0052000 
00342100 
00242200 
00342300 
00342400 
00342500 
00342600 
00342700 
00342800 
00342900 


С KFSFKFHFKIFRKKKRFRRKSKKTIRFKRARF KKK KKFRKFKFRIKFKKRKKKRAEHRA RF 
ς FeseRRTIRKRT THR ARTRSH HR ES SKIT RSAKT KT HGRRR FST F 


C жж 


102 


103 


106 


C xxx 


104 
101 
105 


IF (NCHIP.EQ.0) GOTO 105 


MODIFICATION FOR DECK BOUNDARIES 


DO 101 N=1,NCHIP 
ІВ-ІСНРВ(М) 
IE-IB*NCHPI(N)-1 
ІВМ1=ІВ-1 
ІЕР1=ІЕ+1 
JB=JCHPBIN) 
JE-zJB*NCHPJ((N ) -1 
ЈВМ1=ЈВ-1 
ЈЕР1=ЈЕ +1 
KB=KCHPB(N } 
KE-KB*NCHPK(UN) -1 
KBM1=KB-1 
KEPI=KE+1 


DO 102 J=J8,JE-1 
DO 102 Kz-KB,KE-1 
AE(IEtil,J,K )=0.0 
AWLIE, J K )=0.0 


CONTINUE 


00 1035 І=ІВ,ІЕ-1 
CO 103 K=KB,KE-1 
ANCI,JBM1,K)-0.0 
ASC(I,JE,K)-0.0 
CONTINUE 


DO 106 I-IB,IE-1 
09 100 Ј=ЈБ,ЈЕ-1 
АР(І,Ј,КЕМ1 )=0.0 
АВ(І,Ј,КЕ )=0.0 
CONTINUE 


FOR THE CELLS INSIDE OF THE DECKS 


DO 104 I=IB,IE-1 
DO 104 J=JB,JE-1 
DO 164 K=KB,KE-1 
SP(I,J,K )=-1.0£20 
AHCISJ;,K)-0. 
AECI,J,K)-0. 


ASCI,J,KI=0. 
Αν] 0. 
SU(I,J,KJ=0. 
CONTINUE 
CONTINUE 
CONTINUE 
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00343000 
00545100 
095%5200 
00343300 
00343400 
00343500 
00343600 
00343700 
00343800 
00343900 
00344000 
00344100 
00344200 
00344300 
00346400 
00344500 
00364600 
00344700 
00344800 
00346900 
00345000 
00345100 
00345200 
00345300 
00345400 
00345500 
00545600 
00345700 
00345800 
00345900 
00346000 
00346100 
00346200 
00346300 
00346400 
00346500 
00346600 
00346700 
00346800 
00346900 
00347000 
00247100 
00347200 
00247300 
00347400 
00347500 
00347600 
00347700 
00347800 
00347909 
00348000 
00348100 
00348200 
00348300 
00348400 


ВЕЗЕНЕЗФЕКЕЯОЗЕФФЯБВЗЕЗЕЕЗЕНЕЕЗЕ? 59 ЕТ За 789 
FREE TES Hers ee weK Hh eee we HTRHEGHATHSERRS RSS RRLRRHRARRKIRRALKLTTS 


KEK 


300 


жжк 


KE 


949 


ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 


DO 300 J=2,NJ 
DO 300 I=2;NI 
DO 300 Kz2,NK 


АР(1,Ј,К )=АМ(І,Ј,КӘ)+А5(1,Ј,К)+АЕ(І,Ј,К)+АН(І,Ј,К )-5Р(І,Ј,К) 


+АР(І,Ј,К )+АВ(І,Ј,К) 
CONTINUE 


SOLUTION OF FINITE DIFFERENCE EQUATION 


CALL TRID 


THIS IS FOR CKECKING 


DO 161 I=1,NIP1 
WRITE (6,*) I 
FORMAT ( ' AM ') 
WRITE (6,949) 


2,2,2 ,МІ,МЈ,МК,РР) 


WRITE (6,999) (( AHCI,J,K),K-1,NKP1),J-1,NJP1) 


CCHTINUE 

DO 160 I-1,NIP1 
WRITE (6,*) I 
FORMAT ( ' AE ') 
WRITE (6,9958) 


KRITE (6,999) ((CAECI,J,K 0),Kz71,NKP1),J-71,NJP1) 


CONTINUE 

DO 170 I-1l1;NIPI1 
WRITE (6,%) I 
FORMAT ( ' AB ‘) 
WRITE (6,;958) 


FHRITE (6,999) ((AB(I,J,K),K=1,NKP1),J=1,)NJP1) 


СЕУІТІМДЕ 

DO 180 І=1,МІРІ 
RITE (65,*) I 
FORMAT ( * AF °) 
WRITE (0,968) 


WRITE (0,999) (CAFCI,J,K),K=1,NKP1),J=1,NJIP1) 


CONTINUE 


WRITE (6,999) ((SU(T,5,K),K=1,NKP1),I=1,NIP1) 


CO 190 I=1,NIP1 
WRITE (6,*) I 
FORMAT ( ° SU °) 
WRITE (6,978) 


WRITE (6,999) ((SU(1,J,K),K=1,NKP1),J=1,NJP1) 


CONTINUE 
DO 191 I=1,NIP1 
WRITE (6,%) I 
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00348500 
00348600 
00348700 
00348200 
00348900 
00349000 
00349100 
00349200 
00349300 
00369400 
00349500 
00349600 
00349700 
00349800 
00349900 
00350000 
00350100 
00350200 
00350300 
00350400 
00350500 
00350620 
00350700 
00350800 
00350900 
00351000 
00351100 
00351200 
00351300 
00551400 
00351500 
00351600 
00251700 
00351600 
00351900 
00352000 
00352100 
00252200 
00352300 
00352400 
00352500 
00252600 
00352700 
60252800 
09252900 
00355000 
00353100 
00353200 
00353300 
00353400 
00353500 
00353600 
00353700 
00353800 
00353900 


988 


151 
999 


3¢ 3¢ ¥ 


оо О 


600 


С жж 


603 


С жжж 


604 


С жж 


606 


С жж 


OO O 


WRITE (6,988) 

FORMAT ( ' PP ') 

WRITE (6,999) CCPPCI,J,K )J71;, NJP1)5,K77,7) 
CONTINUE 

FORMAT t12E10.3) 


CORRECT VELOCITIES AND PRESSURE 
CORRECTION FOR VELOCITY U 


DO 600 I=2,NI 

ІНІСІСІ 

IF (I.EQ.2) IMI=NI 

DO 600 Jz2,NJ 

DO 600 K=2,NK 

Ut I;J;,K )*UCI,J;K O*DUCI  J5K )J*CPPCIM1,J,K)-PPCI,J,K)) 
CONTINUE 


CORRECTION FOR VELOCITY V 


DO 603 J-3,NJ 

JM1-2J-1 

DO 603 Kz2,NK 

DO 603 I-2,NI 

VCI;J,K)0z2V(I,J,K )*DV(I, JK )*(t PPCI,JM1,K)-PP((IS;J,,K)) 
CONTINUE 


CORRECTION OF VELOCITY W 


DO 604 K=3,NK 

KM1-K-1 

00 604 I-2,NI 

DO e04 J-2,NJ 

AUI ο ?2WÉ T 4; K ODACI  JK O*CPPCI,J,;KM1)-PP(C(IS,J,K)) 
CONTINUE 


CORRECTION FOR PRESSURE P 


DO 606 J-2,NJ 

DO 606 I-1,NIP1 

DO 606 K=1,NK 

P ( 255 FE J=P(I,J,KI+PP(I,J,K ) 
PP(I,J,KJ=0. 

CONTINUE 


THIS IS FOR R=0.0 CASE 


DO 75 I-1,NIP1 
DO 75 K=1,NKP1 
Ut I;1,K)-U( 1,25 K ) 
H(I,1,K )=WH(I,2,K) 
V(I,2yK)=V([(I,šy yK) 
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00354000 
00254100 
00354200 
00354300 
00354400 
00354500 
00354600 
00354700 
00354800 
00354900 
00355000 
00355100 
00355200 
00355300 
00355400 
00355500 
00355600 
00355700 
00355800 
00355900 
00356000 
00356100 
00356200 
00356300 
00356400 
00556500 
00556600 
00556700 
00556800 
00556900 
00557000 
00257100 
00557200 
00257200 
09357400 
00357500 
00357600 
00357700 
00257800 
00357900 
00358000 
00358100 
00355200 
00358300 
00358400 
00358500 
00358600 
003538700 
00558800 
00258900 
00359000 
00359100 
00359200 
00259200 
00559400 


75 


50 


51 


С «κκ 


52 
БЕ 


С жж 


76 


С wx 


zn 


CONTINUE 


MODIFICATION FOR R=0.0 


DO 55 K=2,NK 

VY=0.0 

VX-0.0 

VZ=0.0 

DO 50 I=2,NI 

VY =VY +U(I,2,K JXCOS(XS(I )) 
VX=VX-U(I,2,K JXSINCOXS(I)) 
CONTINUE 


DO 51 I-2,NI 
VYzVY*VLUI,,3,K )wSIN(XC(1)) 
VXZVX*VLI, 2,K P*COSUXCUCIJ) 
VZ*NZ*WLUI 2, K) 

CONTINUE 


FIND THE VELOCITIES AT R=0.0 


DO 52 I=1,NIP1 

UC I;l1,R)20-VX*SINUXSUI) )&VY*COSt XSUI ) ))/NIMI 
VCI,2,K)2 (VXX*COSUXCUCI ) J*VYXSIN(OXCLCI ) ) )/NIMI 
WUI,l1,K)-2VZ/NIMI 

CONTINUE 

CONTINUE 


THIS IS FOR THE CYLINDER ONLY (CYLIC CONDITION) 


DO 76 J=1,HJP1 

DO 76 K=1,NKP1 

Ut 1,J,K )ZULNZ ,J,K) 
ULNIZP1,J;,K ):U(C 2, JS K ) 
VE 1, J,K ISVENISJ,K) 
VUNIP1,J,K !VE2, JS K ) 
4(1›.›К!= (ΠΚ) 
WUNIP1,J,K)-2HU2 ,J5K) 
CONTINUE 


THIS FOR SPHERE ONLY 


DO 77 I-1,NIP1 

DO 77 Jz1,NJP1 

U( I,J,1)2zU(I,5,J,2) 
V(I,J,107*V(1,J,2) 
WCI,J,2)0z2WHCI,J5,23) 

UC I,J,NKP1 J=U(I,J,NK) 
VLI,J,HKP1)zV(UI,J,HK) 
HCI, J NKP1)=H(I,J NK ) 
CONTINUE 
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00359500 
00259600 
00359700 
00355800 
00359900 
00300000 
00300100 
00360200 
00360300 
00360400 
00360500 
00360600 
00360700 
00360800 
00360900 
00361000 
00361100 
00361200 
00361300 
00361400 
00361500 
00301600 
00361700 
00361800 
00361900 
00362000 
00362100 
00362200 
00362500 
00362400 
00562500 
00562600 
00562700 
00562800 
00262900 
00555000 
00562100 
00363200 
00263300 
00363400 
00565500 
09363600 
00565700 
00363800 
00363900 
00364000 
00364100 
00264200 
00364200 
00264400 
00364500 
00364600 
00364700 
00364800 
00364900 


IF (NCHIP.EQ.0) GOTO 116 
C ST98"XETRHRXZTRRTARRETSSRERSRRROSRTRHSERRRRESSRSERUTRTRRERRSURTDRRTERTIS 
eMEIIILDTERIITIIEPIIDEIIISIIIIPIDIPIPIIIIILIIITIT. 


C *** RESET THE VELOCITY INSIDE OF OECK 


OO 


O 


109 


118 


IPS 
120 
116 


25225242222 222-52-25 5 5-25-55 52 5 
тт И ҮЕНИ ИНИНЕН 


363 3 


DO 120 N=1,NCHIP 
IB-ICHPB(N) 
IE-IB*NCHPI(N)-1 
JB=JCHPBIN } 
JE:JB*NCHPJUN)-1 
ΚΒΞΚΟΗ͂ΡΒΙΝ) 
KE=KB+NCHPK(N)-1 


DO 109 I-IB,IE 
DO 109 J=JB,JE-1 
00 109 K-KB,KE-1 
Ut 1,J,K )20.0 
CONTINUE 


00 118 I-IB,IE-1 
00 118 J=J5,JE 
00 118 K=KB,KE-1 
V(1,J,K)20.0 
CONTINUE 


DO 119 I-IB,IE-1 
00 119 J=JB,JE-1 
ГО 119 K-KB,KE 
WOI,J,K JEWFANON) 
CONTINUE 
CONTINUE 
CONTINUE 


RECALCULATE THE ERROR SOURCE AFTER CORRECTIONS OF U, V» P 


SORSUM=0. 
RESORM(ITER)-O. 
DO 700 J=2,NJ 
JPl-J*1 
JM13J-1 

DD 700 I=2,NI 
ІР1=1+1 Š 
IM1-1-1 

DO 700 Kz2,NK 
КРІ=К+1 
KM1=K-1 


CENTRAL LENGTH OF THE SCALAR CONTROL VOLUME 
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00365000 
00365100 
00505200 
00365300 
00365400 
00365500 
00365600 
00365700 
00365800 
00365900 
00366000 
00366100 
00366200 
00366300 
00366310 
00366392 
00366394 
00366400 
00366500 
00366600 
00366700 
00366800 
00366900 
00367000 
00367100 
00367200 
00367300 
00367400 
00367500 
00267600 
00367700 
00267900 
00367900 
00365000 
09303100 
00368200 
00368200 
00368400 
00368500 
00368600 
00368700 
00368500 
09268900 
09362000 
00369100 
00369200 
00369300 
00559400 
00369500 
00569600 
00369700 
00369800 
00369900 
00370000 
00370100 


C xxx 


DXPl1-XLUCIP1,J,K,0,0) 
DXI =XLti »J45K 5050) 
DXMl*XL(IM1;J;K,0,0) 


DYPI=YL(I,JP1,K,0,0) 
Бү) =YL(I,J ;K5050) 
DYM1=YL(I,JM1,K,0,0) 


02р1=21(1,Ј,КР1,0,0) 
DZK z2L(I,J),K 0.0) 
DZM1-2L(I;J;,KHM1,0,0) 


SURFACE LENGTH OF THE CONTROL VOLUME 


DXN*XL((I;,JP1;,K,0,2) 
DXS=XL (I,J K302) 
DXF=XL{(I,J,KP1,0,3) 
DXB=XL(I,J,K 053) 


CYF=YL(I,J,KP1,0,3) 
DYS=YL(I>,J,K 02) 
DYESYLCIPISJ;K,0;51) 
DYH=YL{ I 3453051) 


D2E-z2LtLIP1;,;J,K,0,1) 
02и=21(І »J;K5051) 
Dzi-2Lt I,JP1,K5,0,2) 
DZS-2L(GI;,J ;:K 5052) 


DEFINE AREA OF THE CONTROL VOLUME 


DXYF=DXF*DYF 
CXYB=DXB*DYB 
DYZE=DYE*OZE 
ΟΥ ΖΙΙΞΟΥΜΣΞ ΟΖ 
DZXN-DZN*DXN 
DZXS-DZS*DXS 


VOL-D-7I*DYJ*DZK 
VOLDT - VOL/OTIME 


RH-ELRCI,J,K )*DYPI*RCUI;,;JP1,K )Ó*DYJ)/t DYP1*4DYJ) 
RSSZ(RUI,J,KOXDYMI*RUI,JMI,KO*DYJ)/CDYMI*DYJ) 
REZ(IREI,J,KOXDXPI*RUIP1,J,KOxDXI )/t DXP1* DAI) 
RH-zURCIS, JF. JO&DXHI*RCIMI; J,K OxDXI )/Ct DXM1 *DXI ) 
RFZURUIL,J,K)XDZPI*RUI,J,KP1)X*D2K )7t DZP1*D2K ) 
RBzZ(RC(I,J,K)X*D2H1*R(CI; J,KHM1)X*02RN )/CDZM1*DZK ) 


CNzRNX*VUI , JP1, K )*DZXN 
CS-RS*V(I,J  ,K)*DZXS 
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00370200 
00370300 
00370400 
00370500 
00370600 
00370700 
00370800 
00370900 
00271000 
00371100 
00371200 
00371300 
00271400 
00371500 
00371600 
00371700 
00371800 
00371900 
00372000 
00372100 
00372200 
00372300 
00372400 
00372500 
00372600 
00372700 
00372800 
00372900 
00373000 
00373100 
00373200 
00373300 
00373400 
00373500 
00373600 
00373700 
00372800 
00373900 
00274000 
00374100 
06274200 
00274200 
00274400 
00274500 
00274600 
00274700 
00274800 
00274900 
00275000 
00375100 
00375200 
00375300 
00375400 
00375500 
00375600 


CE=RE*U(IP1,J,K 9*DYZE 

CN=RWxXUCT J-K JX DYZW 

CF-RF*WCIS,J;,KP1)*DXYF 

CB-RB*W(I,J,K — *DXYB 

SMPLCI,J,Kh)-2-CE*CH-CN«*CS-CF*CB 

SMPCI,J;,K)--(RCL,J,K)-ROD(1,J,;K ))*VOL/DTIME-CE*CH-CN«*CS-CF *CB 


HHH SORSUM IS ACTUAL MASS INCREASE OR DECREASE FROM CONTINUITY 
EQUATUON , THIS WILL COMPARE TO SOURCE 


SORSUM-SORSUM*SMP(I;J;,K) 

HHH RESORM IS SUM OF THE ABSOLUTE VALUE OF SMP(I;J,K) 
RESORM(ITER)-RESORM(ITER)*ABSCSMPCI;,J,K)) 

700 CONTINUE 


RETURN 
END 


00375700 
00375800 
00375900 
00376000 
00376100 
00376200 
00376300 
00376400 
00376500 
00376600 
00376700 
00376800 
00376900 
00377000 
00377100 
00377200 
00377300 
00377400 
00377500 
00377600 
00377700 


XXX E KE EK E E HEHE 3€ 3€ 3€ 9€ 9€ € HEHE HE E E E E E EE E HEHE 3€ HEHE ETE IE He TEBE HE E 3E E EE E E EE 4 E EEE EEE EE EE HEHEHE HHHOOS 77800 


SUEROUTINE TRID(IST;JST,KST,ISP,JSP,KSP,PHI) 


00377900 


3€ X X 3€ X XO C C K 3€ 9€ E E E E E CI 9€ € € 9€ 3€ € € 9€ ЗЕ ЭЕ ЭЕ C3 JE ME 9€ € € E € OC € € OC JE € € € € € € CE OEC C 93€ 933€ 33€ 3€3€3-3XC( € 00 2 7 80 00 


COMMCN/BL7/NI ,NIP1,NIM1,NJ,NJP1,NJM1,;NK,NKP1,NKMl 

&  ;,NIP2,NJP2,NKP2,NA,NAP1,NAM1,NS,NBPl;.NBEMl,.KRUN;NCHIP NJRA,NWRP 
СОММОИБЕЗ56/АР( 22,16,52 ),АЕ( 22,16,32 ),АМ(22,15,52),АМ 22,16,52), 
& А5122,16,52),АҒ(22,16,52;,АВ(22,15,22), 

& SP(22,16,32),SU(22,16,32),RI(22,16532) 

DIMENSION A(99),8(99),C( 99),PHI(225,16,22) 


GOTO 405 
ISIMISIST-1 
А(15ТМ1250. 
C(ISTM1 J=0. 
DO 100 J=JST,JSP 
DO 100 K=KST,KSP 
DO 101 I-IST,ISP 
ACI)-AECI,J,K) 
BLIJZAHUI;,Jo,K) 
C(1J)-2ANCIJ,KO)*PHICI;,J*1,R O*ASCI, J,K )*PHICI;J-1,K) 
& tAFUI,J,KOX*PHIL1,J,K*1J*ABt 2, J,K DXPHI1CI,J,R-1)0*SUCI,, J,K) 
TERMz1./CAPCI,J,K )-BCI*ACI-1)) 
IF (ABSCACI)).LE.1.0E-70) AtI 20.0 
ТЕ (АЕ8ЗҮ(В(І)).і12.1.0Е-70) ВГТ 250,0 
TF (A5S(C(I)).LE.1.0E=-70) С(Т)=Ш 0 
IF (ABS(TERM).LE.1.0E-70) TERM=0.0 
ACI J=ACI ) ΤΕΡΜ 
CC I!z(CCIO*BCIOXxCO(CI-1) )*TERM 

101 CONTINUE 
PHICISP ,J,K J=CCISP 3} 
ISTA=IST+1 
DO 102 II=ISTA,ISP 
I=IST+ISP-II 
IP1=I+1 
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00378100 
00378200 
00378300 
00378400 
00378500 
00378600 
00378700 
00378800 
00378900 
00379000 
00379100 
00379200 
00379300 
00379400 
00379500 
00379000 
09579700 
00279800 
00379900 
00280001 
00280002 
00380003 
00280010 
00380020 
00380100 
00380500 
00380600 
00380700 
00380800 
00380900 
00381000 


102 
100 


2000 


2001 


PHI‘ I,J,K J=ACI J¥PHI(CIPL,J>K )+С(1) 
CONTINUE 
CONTINUE 


DO 2000 J=JST>JSP 

CO 2000 K=KST,KSP 
PHICIST-1,J,K J=PHI(ISP>J,K } 
РНІ(15Р+1,Ј,К )=РНІ(15Т7,Ј,К) 
CONTINUE 


JSTM1=JST-1 

ACJSTM1J=0. 

CCAJSTM1)720. 

DO 200 K*XST,KSP 

OC 200 I=IST,ISP 

DO 201 J=JST,JSP 

ACJ )zANCI;J,K) 

B(J)=AS(I,JyK) 

C(J)ZAE(I,J,K )XxPHI(I+1,J yK )*AH(I,,J,KOX*PHI(I-1, J,K) 
*AFCI,J,KO)*PHICI,J,K*1)4ABCI J,; K OXPHIC(IJ,K-l)*SULCIS JK) 

TERMz1./(APCI;J,K)-BCJ)*ACJ71)) 

IF (АВ5(А(.)).ІГЕ.1.0Е-70) А(./320.0 

ІР (АВ5(В(/.)).ІЕ.1.0Е-70) 81./):0.0 

ІР (АВ5(С(.)).1Е.1.0Е-70) С(./):0.0 

IF (ABSCTERM).LE.1.0E-70) TERM=0.0 

A(J)=A( J )*=TERM 

Ct J)zC€CC J)*4B(CJ )*CCJ-1) J*TERM 

CONTINUE 

РНІ(І,25Р,К )=С(ЈЅР ) 

Ј5ТА=ЈЅТ +1 

DO 202 JJ=JSTA,JSP 

JzJST+JSP-JJ 

JP1=J+1 

PHILI,J,K)-ACJ)*PHIUI,JPl1,K )*CCJ) 

CONTINUE 

CONTINUE 


CO 2001 J-JST,JSP 

DO 2001 K=KST ,KSP 
PHICIST-1,J," J=PHICISP,J,K) 
PHICISP+1,J,K J=PHICIST »J5K } 
CONTINUE 


KSTH1=KST-1 

ACKSTM1)20. 

CCKSTH1)20. 

СО 300 I=IST,ISP 

DO 20G J=JST,JSP 

DO 301 K=KST>KSP 

АСК )=АР(І,Ј,К) 

BIK I=AB(I,J,K) 

CCK)zAECI,J,KOUXPHICI*1, JK )*AKHCI,J,K)*PHI(CI-1;J,K) 
*ANCI,J,K)*PHICI,J*1,K )*ASCI,;J,K)*PHICIJ-1,K J* SULI J;K ) 
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00381100 
00321200 
00381300 
00581400 
00381500 
00351600 
00381700 
00381800 
00381900 
00382000 
00382100 
00382200 
00382300 
00582400 
00382500 
00382600 
00382700 
00382800 
00382900 
00383000 
00383100 
00363200 
00385210 
00383220 
00383220 
00383240 
00383300 
00383400 
00585800 
00385900 
00384000 
00384100 
00384200 
00384300 
00384400 
00284500 
00284600 
00384700 
00284200 
00384900 
00325000 
00285100 
00285200 
00385300 
00285400 
00335500 
00585600 
00385700 
00585800 
00385900 
00356000 
00586100. 
00385200 
00386300 
00380400 


301 


502 
309 


2002 


4405 
605 


601 


602 
600 


TERM=1./(AP(I,J5K )-BUK )¥ALK=-1)) 

IF (ABS(A(K)).LE.1.0E-70)} ΑίΚ)Ξ0.0 
IF (ABS(BIK)).LE.1.0E-70) BIK)=0.0 
IF (ABS(C(K)).LE.1.0E-70) CI(K)=0.0 
IF (ABS(UTERMN).LE.1.0E-70) TERM=0.0 
AIK J=AUK )* TERM 
C(K)=(CIK)+*B(K)%C(K-1))%TERH 
CONTINUE 

PHI(I »J,KSP )=CCUKSP ) 

ҚОТА:Қ5Т%1 

DO 202 ΚΚΞΚΘΤΑ»Κ5Ρ 

K=KST+KSP-KK 

KP1=K+1 
PHI(I,J,K J=ACK )*®PHI(CI,J,KP1 )+C(K) 
CONTINUE 

CONTINUE 


DO 2002 J-JST,JSP 

DO 2902 K=KST,KSP 
PHI(IST-1,J,K J=PHICISP,J>K ) 
PHICISP+1,J,K J=PHICIST>,J>K ) 
CONTINUE 


GOTO 700 


CONTINUE 

К5Р1=К5Р+1 

B(KS91)=0. 

C(KSP1)-0. 

DO 600 II-IST,ISP 

I=IST+ISP-II 

DO 600 JJ=JST,JSP 

J=JST+JSP-JJ 

DO 601 KK=KST>,KSP 

K=KSP4KS7 -KK 

KP1=K+1 

ACK J=AF(I,J,K) 

BIK)-ABEUI, JS, K ) 

C(K )Z AECI,J,KO*PHICIS1, J,K )*AHRCI S J,K )J*PHICI-1, JK )MAN( 1, J K )# 
PEI(I,J+1,K J4AS(I,J ;K )*PHI(I »J-1 ,KJ*SULCI J,K) 

TERMz1./(^A2(1,J,K )- At K J*BUK 41) ) 

BEK)ZBEK )* TERM 

СЕК = ССК +АСК 2)*CEK 41 ) 1 TERM 

IF (ABSCACK)). LE. 1.0E-70) AIK )=0.0 

IF (ABSEBUK) ). LE. 1.0£ -70) BtK 020.0 

IF (ABSI(CIK) ]. LE. 1.0E-70) CtR 020.0 

CONTINUE 

PHI(I,J,KST )J=C{(KST) 

KSTPl-KST*1 

DO 602 K=KSTP1,KSP 

PHI(I,J,KJ=BUK J¥PHI(I,J,K-1)4+C(K ) 

CONTINUE 

CONTINUE 
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00386500 
00386510 
00386520 
00386530 
00386540 
00386600 
00386700 
00387100 
00387200 
00387300 
00387400 
00387500 
00387600 
00387700 
00387800 
00387900 
00388000 
00388100 
00388200 
00388300 
00388400 
00388500 
00388600 
00383700 
00388800 
00288900 
00389000 
00389100 
00389200 
003892500 
00389400 
00389500 
00389600 
00389700 
00589800 
00589900 
00290000 
00390100 
003°0200 
00390200 
00390400 
00390500 
00390600 
00390700 
00390800 
00390900 
00591000 
00391100 
00391200 
00391300 
00391400 
00391500 
00391600 
00391700 
00391800 


2005 


501 


502 
500 


200% 


DO 2003 J=JST,JSP 

DO 2003 K-zKST,KSP 
PHILIST-1,J,K)zPHI( ISP, J,K) 
PHICISP*1,J,K)-PHIUCIST ,J,K) 
CONTINUE 


JSP12zJSP*1 

Bt JSFP1)=0. 

Ct JSP1)*20. 

DO 500 KK=KST,KSP 

K=KST+KSP-KK 

DO 500 II=IST,ISP 

I-IST«*ISP-II 

DO 501 JJ-JST ,JSP 

JzJSP*JST-JJ 

JP1-J*1 

AtJ JZANCI  J5 K) 

BJ )zASCI;,J,K) 

CCJ)ZAECI,J,KO)XPHIC(I*1, JK J*AHCI  J,K O&PHICI-1,J,K )*YAF(1 J K )# 
PHI(I yJ y K+1 )+AB(I yJ K )XPHI(I »J5»K-1 )+SU( I »J ›К) 

TERMz1./(APCI,J;,K)-ACJO)*BUJ*1)) 

Bt J )72B8( J )*TERM 

C(J)=(C(J)+A(J3)%C(—(J+1))%TERH 

IF (АВ5(А(.))).1Е.1.0Е-70) А(.,/1-0.0 

IF (4BS(BLJ) ).LE. 1.0E-70) BtJ120.0 

IF (ABS(C(—(J2)).LE.1.0E-70) C(J)=0.0 

CONTINUE 

PHI(I,JST,K!-C(JST) 

JSTP1-2JST*1 

DO 502 J-JSTP1,JSP 

PHILI,J,K)-BCJ)*PHICI,,J-1,K )9*CCJ) 

CONTINUE 

CONTINUE 


DO 2004 J=JST »,JSP 

DO 2004 KzKST,KSP 
PRICIST-1,J,% I=PHI(ISP,J>K ) 
PHI(ISP+1,J,KjJ=PHICIST »J>K ) 
CONTINUE 


ISP1=ISP+1 
В(15Р1)=0. 
С(ІЗР1)20. 

DO 400 JJ-JST,JSP 
J*JST*JSP-JJ.- 

DO 400 FK=KST,KSP 
KzKST *«KSP -KK 

DO 401 II-IST,ISP 
I=ISP+IST-II 
IP1=I+1 
ALIIZAELI,J,K) 
B(I)=AM(I,J yK) 
CLI)SAN(CI,J;,KO*PHI(CI,J41,K )*ASC I J;K J&PHIC I,J-1,K O*AFCI J,K)*X* 
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00391900 
00392000 
00392100 
00392200 
00392300 
00392400 
00392500 
00392600 
00392700 
00392800 
00392900 
00323000 
00393100 
00393200 
00393300 
00393400 
00393500 
00393600 
00393700 
00393800 
00525900 
00394000 
00294100 
00294200 
00394300 
00394400 
00396500 
00394600 
00394700 
00394800 
00594900 
00395000 
00295100 
00395200 
C0395300 
00395400 
00595500 
00395600 
09395700 
00395300 
02595900 
00592000 
002526100 
00396200 
003%6300 
00396400 
00396500 
00396600 
00396700 
00396800 
00396900 
00397000 
00397100 
00397200 
00397300 


901 


402 
400 


2005 


700 


8 


8 


& 


& 


& 


PHI(I,J,K4] }4ABCI,J,K J*¥PHICI,J,K-1 3 *+SUCT ولو‎ ( 
TERMz1./tAPCI,J,K )-ACI J*B( 41)) 
BECI)-zB(CI * TERM 
C(I)=(C(I)+A(I)%C(I+1))!%TERH 
IF (ABS(A(I)).LE.1.0E-70) At(I)=0.O0 
IF (ABSIBLI)J.LE.1.0E-70) BII 20.0 
IF (ASS(C(I1)).LE.1.OE-70) CII)=0,0 
CONTINUE 
PHI(IST,J,K)-C(IST) 

ISTP1=IST+1 

DO 402 I-ISTPI1,ISP 

PHI(I,J,K)U-ZB(I )XPHI(CI-1,J, K )*C(OI) 
CONTINUE 

CONTINUE 


DO 2005 J=JST,JSP 

DO 2005 K=KST>KSP 

PHI CIST-1,J,K J=PHIC ISP ,J,K ) 
PHI( ISP41,J,K J=PHICIST,J>K) 
CONTINUE 


CONTINUE 
RETURN 
END 


3€3€3€ € 3€ 3€3€ € 9€ 3€ € € E EEE HEHE HIE HIE ETE 9€ 9€€ 3€ 9€ 3€ E E E E E E E E EEE E CE IEE € 3€ 3G EO 93 XX 9€ 


BLCCK DATA 
EE KE EK E E E E E E E EE E E E E E E E E E JE E E E PE PE JE KK E E HEEE E E E E EE E E E EEE E E EK E KC EEK 


COMMON/BL7/NI ;,NIP1;,NIM1,NJ,NJPl;,NJM1,NK;NKPl,;NKMI 


›МІР2,МЈР2 ,МКР2 ,МА ,МАРІ ,МАМ1 ,МВ ,МВР1 ,МВМІ ,КЕОНЧ ,МСНІР ,МЈКА ,МИКР 


COMMON/8L12/ NHRITE,NTAPE »NTMAMO ΝΤΕΕΑΙ , TIME »SORSUIM,ITER 


00397400 
00397500 
00397600 
00397700 
00397800 
00397900 
00398000 
00398100 
00398200 
00398300 
00398400 
00398500 
00398600 
00398700 
00398800 
00398900 
00399000 
00399100 
00399200 
00399300 
00399400 
00299500 
00299600 
00399700 
00399800 
00399900 
00400000 
00500100 
00400200 
00400300 
00400400 
00400500 
00400600 


CC'^HON/BL18/HCOEF,TIMNHF,CNT,ASTURB,BTURB,VISL , VISMAX ,QCORRT ,PM1,PM200500700 
COMMON/BL16/ CONST1,CO!HST2,CONST3,CO!IS TG ,CONSTO6,NT,UO;H,UGRT ;BUOY ,00400800 


CPO,PRT,CONDO,VISO;,;RHOO,HR,TR,TA,DTEMP,THRITE,TTAPE ;j TMAX,GC,RAIROO0S400900 
DATA NIP2,NIP1,NI;,NIM1/23,22,21,20/ 00401000 
DATA NJP2;,NJP1;NJ,NJM1/17;16,15,14/ 00501100 
DATA NKP2,NKP1,NK,NKM1/23,22,21,30/ 00501200 
DATA NAPl;,NA,NAMl1,NBPl1,ND,NBM1/9,8,7,27,26,25/ 00401300 
DATA UO, TA,PRT,RHOO,CPOVISO,NTMAXO/ 00401400 

1.0,555.86,1.0,0.07154,0.2551.56E-4,0/ 00401500 

DATA TINF,CNT,ABTURB.BTURB/1.0,0.2,2.0,1.0/ 00401600 
DATÀ CCS,RAIR/32.17,53.34/ 00401700 
DATA QCORRT,PM1/1.0,0.9/ 00901800 
END 00401900 
00402000 

00402100 

00502200 

3€ X 3€ 3€ 3e 3€3€ 9€ 9€ 3€ € )€ € 9€ 9€ 3€ 9€ € € €3C 3€ € 9€ € 9€ 3€ E EEE C 9€ C 9C 9€ 9€ C € € 2€ € 9€ € 9€ OCC OC € 3€€ 933€ X 9€3€X€ 3€ KEE 00502 200 
SUBROUTINE GRID 00402400 
goo qom cR og X n Me oe 36 ET IE FE E e AME ECCO PE E FE HE E E EF EE jet qe Y EH EE OE EE 00402500 
COMMON/R&4/XC(923),YC( 92),2C( 93), XS( 93 ), Y5(C 93 ),28( 93) ; 00402600 
DXXC( 93 ),DYYC( 93) ,DZZC( 93 ), DXXS( 93 ),DYYSC92) ,D22S8( 93) 00402700 
COMMON/BL1/DX;,DY;D2,VOL,DTIME;VOLDT,THOT,;, TCOOL ;PI,Q, QR 00402800 
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С эс 


€ OX000€00050050000 


CC 


ғ” 
` 


ος 


19 


19 


18 


COMMONZ/BL7/HI,NIP1,NIH1 NJ NJP1,NJH1, NK ,NKP1 ,NKH1 
& | ,NIP2,NJP2,NKP2 ,HA,NAP1,NAH1,NB,NBP1,NBM1,KRUN;NCHIP ,NJRA ,NHRP 


RENERATION OF GRID 


РІс4 .ЖАТАМ(1.) 
DX-1.0/FLOAT(NIM1) 
DY=1./FLOAT(NJM1-2 ) 
DY=1./FLOAT(NJM1-1 ) 
DZ-PI/FLOAT(NKM1-NS*NA-2) 


DO 19 I=1,NIP2 
XS(CIO)-ZUI-2 )*DX*2.0xPI 
CONTINUE 


XSC1)-2-DX*2.0xPI 
XS(2)20.0 
Х5(5)20.01%2.0%РІ 

DO 19 I-4,13 
ASCIOSUI-3 £&DX*2.0xPI 
CONTINUE 


XS 164 )2XSC612) 

XSU13)2XS0(14 )-0.01*2.0*PI 

DO 18 I-15,NIP1 

XSI I=XS( 14 J+( I-14 )*DX*2.0*PI 
CONTINUE 
^5(М1ЇР2)=Х5(МЇР1)+Х5(5) 


YS(1)20.000 
YS(2120.025 
Ү5(51-0.05 


00 5 Ј=,МЈ 

YS(J)=(J-2 )xDY 

CONTINUE 

YS(HJP1)=YS(HJ) 

YS(NJ J=YSt(NJP1)-3./8./12./9.6 
YSCNJP2 J=YSCNJP1 3+35./8./12./9.6 


00 5 Ј=%,М№ЈР2 
Ү50./2ғ(.7-5 1%0Ү 
CONTINUE 

DO 4 I-1,NIP1 

iPl-I*1 
DXXCULI)-XS(CIR1)-XS(I) 
CONTINUE 


DX*CCNIP2 J=DXXC(NIPI J 

DO 5 I-2,NIP? 

Jiil=I-1 

DXXS(I J=.5%( OXXC(I )+DXXCCIM1 )) 
CONTINUE 

DAXS (1 J=DXXS( 2 ) 
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00402900 
00403000 
00403100 
00403200 
00493300 
00403400 
00403500 
00403600 
00403700 
00403800 
00403900 
00404000 
00404100 
00404200 
00404300 
00404400 
00404500 
00404600 
00404700 
00404800 
00404900 
00405000 
00405100 
00405200 
20405200 
00405400 
00405500 
00405600 
00405700 
00405200 
00405900 
00406000 
00406100 
00406200 
00400300 
00406400 
00406500 
00406600 
004C6700 
00406800 
00405900 
00407000 
00407100 
00407200 
00407300 
00407400 
00407500 
00407500 
00407700 
00407800 
00407900 
00408000 
00408100 
00408200 
00408500 


OO O O 


- 


20 


21 


50 


51 


10 


DO 7 J=1,NJP1 

JP17J*1 
DYYCUJ I: YSCJP1)-YSUJO 
CONTINUE 


DYYC(NJP2 J=DYYC(NJP1) 

DO 8 J=2,NJP2 

JM1=J-1 
DYYS(J1=.5%(DYYC(J)+DYYC(JH1)) 
CONTINUE 

DYYS(1)=DYYS( 2) 


DO 20 I=1,NIP2 
XC(I)=XS(I)+DXXC(1)Z2.O 
CONTINUE 


DO 21 J=1,NJP2 
YCt J)zYSCJ)«DYYCCJ)/2.0 
CONTINUE 


DO 9 K=4,NA 
ZS(K )=(K-Z )#DZ 
CONTINUE 


DO 20 К-МӘР1,МҚ 
ZS(K )2 ZSUNA )4 CK -NB )*DZ 
CONTINUE 


DO 31 K-NAP1,NB 
ZS(K J=PI/2. 
CONTINUE 


ZS(1)=0.0 

ZS(2)=0.05 

ZS(33=0.10 
254МЕКЕР1)=25(МКМ1) 
25$(МК)=25({НКР1)-0.05 
254МАМ1!=25(МКР1)-0.10 
25(МАР2)=2$5(МҖ%Р1)+0.05 


ZSUNHXP2 ) 2 ZSUNK ) 
ZSUNKPY)-2SCONKP2 )-0.05 
ZoUNK )2ZSU NKP 2 ) -0. 10 


DO 10 K=1,NKP1 

IF (K.Ge.NA.AND.K.LT.NBJ) GOTO 10 
KP1=K+1 

DZZC(K1=ZS(KP1)-ZS(K) 

COHTIHUE 


DO 32 K=NA,NBM1 
OZZC(K J=2.854/(NB-NA) 
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00408400 
00408500 
00408600 
00408700 
00%08800 
00408900 
00409000 
00409100 
00409200 
00409500 
00409400 
00409500 
00409600 
00409700 
00409800 
00409900 
00410000 
00410100 
00410200 
00410300 
00410400 
00412500 
00410600 
00410700 
00410800 
00410900 
00411000 
00411100 
00411200 
00411300 
00411500 
00411500 
00411600 
00411700 
00411800 
00411900 
00412000 
00412100 
00412200 
00412360 
00412400 
00412500 
00412600 
00412700 
00412500 
00412900 
00413000 
00413100 
00412200 
00413300 
00412400 
00413500 
00413600 
00413700 
00413800 


52 CONTINUE 
DZZC( NKP2 )-D22C(t NKP1) 


DD 11 K=2,NKP2 
С IF (K.EQ.NA.OR.K.EQ.NB) GOTO 11 
КМ1=К-1 
Z2ZZS(K)=.5%*(DZZC(K )*DZZC(KH1)) 
11 CONTINUE 


0225(1)-0225(2) 
DO 22 K-1,NKP2 
IF (K.GE.NA. AND.K. LT. NB) GOTO 22 
СС(К)г:25(К9%р22С(К)/2.0 
22 CONTINUE 


DO 33 K=NA,NBM1 
ZC(K )=PI/2. 
33 CONTINUE 


Tri yS(1).LT.0.0) YS(1)=0.0 
το C C[(1).LT.0:0) YC[>[1)=0.0 


PRINT κ 

PRINT ж," INPUT COORDINATE OF THE TANK IN THE ORDER OF ' 
PRINT ж,! І х5 YS 25 XC ҮС", 
& : 2С DXXS DYYS DZZS DXXC y 
б,» “OYYC DZZC ' 


DO 12 I=1,NKP2 

ККІТЕ(6,102) І,Х5(1),Ү5(1),25(1),ХС(1),ҮС(1),2С(1), 

& DXXSLI),DYYS(I),D22S(I),DXXC(I),DYYCUtI),DZ2C(I) 
102 FORMAT(2X,I4,12( 2X, F8.5)) 
12 CONTINUE 


RETURN 

END 
С 33 3€ 3 3 3€ € 3€ 3€ € 3€ X 3€ 9€ 3€ 3 93€ 93€ 3€ 3€ 

FUNCTION XLUI,J,K,M,N) 
C X X3 ж 6 9 XXX XX د ب × جد جد ج جو‎ 
CM PH FAK KF HH EEK HAH HHH HHH HHH HH HH HHH HHH HHH HHH HH HHH HH KKH HHH HH HH KH HHH 
C WHEN M OR N = 1 THEN SHIFT CELL IN THE NEG X DIRECTION ONE* 
© HALF CELL (STAGGERED CELL) x 
< WHEN M CR N = 2 THEN SHIFT CELL IN THE NEG Y DIRECTION ONE* 
e HALF CELL (STAGGERED CELL) * 
C WHEN M OR N = 3 THEN SHIFT CELL IN THE NEG Z DIRECTION ONE* 
C : HALF CELL (STAGGERED CELL ) + 
С WHEN M = М = 1 THEN SHIFT CELL IN THE NEG X DIRECTION ONE 
C WHOLE CELL + 
С WHEN M = H = 2 THEH SHIFT CELL IN THE NEG Y DIRECTION ONE* 
E WHOLE CELL * 
C WHEN M = N = 3 THEN SHIFT CELL IN THE NEG 2 DIRECTION ONE 
C WHOLE CELL + 
C cae x Jt 3e x 3€ 3e Je 3 3e x 3€ € X 3 OC HE HE IE HEHE IE HE FETE HE HE FETE HE E EE X E EE E HE DEJE Э 3656 5 555656536 
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00413900 
00414000 
00414100 
00414200 
00414390 
00414400 
00414500 
00414600 
00414700 
00414800 
00414900 
00415000 
00415100 
00415200 
00415300 
00415400 
00415500 
00415600 
00415700 
00415800 
00415900 
00416000 
00416100 
00416200 
00416300 
00416400 
00416500 
00416600 
00416700 
00416800 
00416900 
00417000 
00417100 
00417200 
00417300 
00417400 
00417500 
00417600 
00417700 
00417800 
00417900 
00418000 
00418100 
00418200 
00415200 
00418400 
00418500 
00418600 
00418700 
00418800 
00418900 
00419000 
00419100 
00419200 
00419300 


& 


100 


1000 


e 


оо ооо ооо 


COMMON/R&4/XC (C93 ),YC( 93),2C( 93 ),X5( 93 ), Y5( 93) ,23(93);, 


xXl1-2XC(6I) 
X2-YCU J) 
х5-2С(К) 


ОХХС(93 ),ОҮҮС(95),022С(95),0ХХ5(95),рҮҮ5(93),0225(93) 


DXL-DXXCCI) 
IF(M.EQ.N) GOTO 100 


ТЕ({М.ЕО.1.ОН.М.ЕО.1) X1=X5(1) 
IF(M.EQ.1.OR.N.EQ.1) DXL=DXXS(T ) 
IF(M.EQ.2.O0R.N.EQ.2) X2-YStJ) 
IF(M.EQ. 3. OR. N. EQ. 3) X23zZ2S(K) 


GOTO 1000 


IF(HM.EQ. 1) X1zXCI-1) 
IF(M.EQ. 1) DXLzZDXXC(I-1) 
ПЕ(ЙІ-ЕО- 2) Я2-УҮС 63-1) 
IF(M.EQ. 3) X3-2C(K-1) 


CONTINUE 


AXL-7X2*XSINCXS )XDXL 


RETURN 
END 


HHH HEHEHE HH HHH HEHEHE HE HHH HHH HH 


FUNCTION YL(I,J;,K,M,N) 
OC eoe e s ege o de ome 


3 HHH FH HHH KK HHH HH KH KHIM HH HH HIM HH HII HH HII HIE HEH € € 9C XC HE EE E E HE E 3E FF 3E 3¢ € HE 


ИНЕМ М ОК М = 1 THEN SHIFT CELL IN THE NEG X DIRECTION ONE* 
HALF CELL (STAGGERED CELL) % 
WHEN M OR N = 2 THEN SHIFT CELL IH THE NEG Y DIRECTION ONE* 
HALF CELL (STAGGERED CELL) x 
WHEN M OR N = 3 THEN SHIFT CELL IN THE NEG Z DIRECTION ONE* 
HALF CELL (STAGGERED CELL) x 
WHEN M = N = 1 THEN SHIFT CELL IN THE NEG X DIRECTION ONE* 
WHOLE CELL ж 
WHEN M = N = 2 THEN SHIFT CELL IN THE NEG Y DIRECTION ONE* 
WHOLE CELL x 
WHEN M = N = 3 THEN SHIFT CELL IN THE NEG Z DIRECTION ONE* 
WHOLE CELL ж 


E E E EE EE EE E EE EKE E E EE E E E E E IE Pe E JE E E E E E E E E E E E KE E E E EEE E EEK JE KE E IPM 
COMMON/RG/XC( 93 ),YC0 93 ),20093),XS1 93),¥S1 93 ),25093 ); 


& 


X1=XC(I) 
AZ=YC( J) 
У5=2СІК) 


DARC( 93.) ,DYYC( 93 ),DZ2C1 93 ),DXKAS( 935 )DYYS( 95 ),DZZS( 93 ) 


DYL=DYYC( J): 
IF(H.EQ.N) GOTO 100 


IF(M.EQ.2.OR.N.EQ.2) X2-YSCJ) 
LF(N.EQ.2.OR.N.EQ.2) DYL=DYYS(J) 
IF(M.EQ.1.OR.N.EQ.1) X1=XS(I) 
IF(M.EQ.3.OR.N.EQ.3) X3=2S(K) 


GOTO 
100 IF(M. 


1000 
EQ.2) X2=YC(J-1) 


ΠΕ 


00419400 
00419500 
00419600 
00419700 
00419800 
00419900 
00420000 
00420100 
00420200 
00420200 
00420400 
00420500 
00420600 
00420700 
00420800 
00420900 
00421000 
00421100 
00421200 
00421300 
00421600 
00421500 
00421600 
00421700 
00421800 
00421900 
00422000 
00422100 
00422200 
00422300 
00422400 
00422500 
00422600 
00422700 
00422800 
00422900 
00423000 
00423100 
00423200 
00423300 
00423400 
00423500 
00423600 
00423700 
00423800 
00423900 
00424000 
00424100 
00424200 
00424300 
00424200 
00424500 
00424600 
00424700 
00424800 


EEOM-EQ-2). DYE-OYYECJ- I) 

DECM.EQ.1) Xl=xXC(I-1) 

BERUM-EQ.3) X2-ZCIUK-1) 
1000 CONTINUE 


YL=1.00*DYL 

RETURN 

END 
C HF HH HI HEH HK HHH JOH HEH HEH H HEX 

FUNCTION ZL(I,;J,K,Mo,N) 
C 3€ 3t X 3c X X X 3€ 3 ec JC 3€ C 93€ 9E C HK HEH 
C X HEHE IEE IE E E X 3€ € C 9€ € € X 93€ XC 3E XE JE E JEJE J JE XC EE E E EEE JE FETE FETE ESE FETE E EE E E E E E JE E E E 3 
C WHEN M OR N = 1 THEN SHIFT CELL IN THE NEG X DIRECTION ONE 
(с HALF CELL (STAGGERED CELL) x 
С WHEN M OR N = 2 THEN SHIFT CELL IN THE NEG Y DIRECTION ONE 
C HALF CELL (STAGGERED CELL) κ 
C WHEN M OR N = 3 THEN SHIFT CELL IN THE NEG Z DIRECTION ONE* 
С HALF CELL (STAGGEREO CELL) x 
C WHEN M = N = 1 THEN SHIFT CELL IN THE NEG X DIRECTION ONE* 
C WHOLE CELL ж 
С WHEN M = N = 2 THEN SHIFT CELL IN THE NEG Y DIRECTION ONE 
С WHOLE CELL % 
C WHEN M = N = 3 THEN SHIFT CELL IN THE NEG Z DIRECTION ONE* 
C WHOLE CELL κ 
C 33€ EE κκ κ E E EK FE FE NE FEB FEE IE HE € C E C JC JE C C HE IE FE DE FE IE IE HE CIEE XK EE JE € JE JE JE JE E EK E HE E ¥ € OEC 23K 


COMMON/R«a/XC(93),YC( 93 ),2C( 95 ), X80 93), YS( 923 ) , 2350 93), 

& DXXC( 93),DYYC( 93) ,D2ZZC( 93 ),DXXS(L 93) ,DYYSC?3 ),D22S56 93) 
COMMON/BL 7/NI ;NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 

8  ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBMl,KRUN,;NCHIP NJRA,NWRP 
Al-XClI)J 

X2-2YCCJ) 

ΧΞΞΣΖΙΙΚ) 

021-022С(К) 

ІҒ(М.ЕО.М) GOTO 100 


TRUM. EQ@.2.0R.N.EQ.2) xXc=YS(J) 
Ir (Pi EQ ,1.OR SR EQ .1) X1=XS(I) 
ZFCM.EQ.2.OR.N.EQ.3) GOTO 200 
COTO 1000 


200 CONTINUE 
IF (K.EQ.NA.OR.K.EQ.NB) GOTO 2000 
MZ=Z3(K ) 
Г2120225(К) 
GOTO 1000 


100 IF(M.EQ.3) X3-2C(K-1) 
ЕЕРІСЕП, 5) DZE-DZ2CIUK-1) 
Ir(H.EQ.2) X2=YC(J-1) ΄ 
ΙΙ 5,1) X1=xXC(I-1) 
1000 CONTINUE 
ZL=X2*DZL 
GOTO 300 
2000 CONTINUE 
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00424900 
00425000 
00425100 
00425200 
00425300 
00425400 
00425500 
00425600 
00425700 
00425800 
00425900 
00426000 
00426100 
00426200 
00426300 
00426400 
00426500 
00426600 
00426700 
00426800 
00426900 
00427000 
00427100 
00427200 
00427300 
00427400 
00427500 
00427600 
00427700 
00427800 
00427900 
60428000 
00428100 
00428200 
00428300 
00428400 
00428500 
00428600 
00428700 
00428500 
00428900 
00429000 
00429100 
00429200 
00429300 
00429400 
00429500 
00429600 
00429700 
0042°800 
00429900 
00420000 
00430100 
00430200 
00430300 


ооо 


300 


& 


& 


& 


& 


& 


ο. υσσε(κ-λ) 

DZL2=DZZC(K ) 

IF (K.EQ.NB ) р211-р22С(К) 
IF (K.EQ.NB) DZL22ZDZZCIK=-1]) 
гігіхгжргі1%0212)/2. 
CONTINUE 

RETURN 

END 


3€ 3J€3€ X 3€ 3€ € 9€ 9€ 3€ XX 3€ 3 3€ 93€3€3€3€ 9€3€ € HEM HEHE HEHE 
FUNCTION SILIN(V1,V2,D1,D2) 

3€ 3€ 3€3€ 9€ 3€ 9€ 9€ 9€ 3 3€ 3€ 9€3€ 3€ 9€ 3€ κκ κκ 

IF (D1.EQ.0.0.AND.D2.EQ.0.0) D1-0.2 
IF (D1.EQ.0.0.AND.D2.EQ.0.0) D2z0.1 
SILIN=(V1*D2+V2*D1)/(D1+D2 ) 

RETURN 

END 


556 5556-56-56 5556 56363656 65636 3-56-36 ЭЄЭЄЭЄЗє Зе ЗЕ ЗЄЗЕЭЄ ЭЄЗЄ ЭЕЭЕЭЄ ЗЕЭЄЭЄЗЭЄЭЕЭЕЗЕЗЄЭЄЭЄ 
FUNCTION BILIN( V1,V2,D01,02,V3,V4,D3,D4,D5,D6} 
EHH HHH HEHEHE HEHEHE HEL E E E E E E E E E HE E E E Me E E E E E E EE E EK FE 
V12=(V1%D2+V2w%wD1)⁄/(01+D2 ) 

V34=(V3*DG+VG*D3 )/(D3+D94 ) 

BILIN=( V12*D6+V34*D5 )/(D5+D6) 

END 


HEH IEE IE IE IE I HEHE JE E E E EE 3 

SUBROUTINE STRESS 

HHH HHH HEH HHH E E HE IE JE FE 

COMMCN/RG/XC( 95 3 ,YCU 93 ),2C0 93 ),XS( 93 ),YS0 93 ),Z251 93 ), 

DXXC( 93 ),DYYCt 92 ) ,D22C( 93 ), DXXS( 93 ),DYYSU 93 ),D225( 93) 
COMMON/BL1/DX , DY ,DZ,VOL,DTIME , VOLDT,THOT ,TCOOL,PI,Q,QR 
COMFON/BL7/NI ;NIP1,NIM1,NJ.NJP1;,NJM1,;NK,NKP1,;NZXM1l 

HIPZ,NJP2,NKP2,NA,NAP1,;NAMl,;NS8,NSP1,NSHMl;KRUN,;NCHIP ,NJRA ;NWRP 
COMMON/EBL20/SIG11(22,16,32 ),S51G12(22,16,32),SIG22(22,16,32) 
»91G13(22,16,32),SIG23'22,16,32 ),S1G33122,16 5,32) 
ате а NCHPI(10),JCHPB(10),NCHPJ(101},KCHPB(10), 
NCHPK(101,TCHP(16),CPS(10),CONS(10 },NFAN( 10) 
* COMMON/BL32/ Т7(22,16,521,К(22,16,52),Р(22,16,5252) 
;:C(225,105,32),ULt 22,16, 32 ),V( 22,165, 32 );H( 22516522) 


00430400 
00430500 
00430600 
00430700 
00420800 
00450900 
00421000 
00431100 
00451200 
00431300 
00431400 
00431500 
00431600 
00431700 
00431800 
00431900 
00432000 
00432100 
00432200 
00432300 
00432400 
00432500 
00432600 
00432700 
00432800 
00432900 
00433000 
00433100 
00433200 
00433300 
00433400 
00433500 
00433600 
00433700 
00422800 
00423900 
00434000 
00434100 
00434200 
00434300 
00434400 
00434500 
00434600 


COMMON/2L37/ VIS(22,16,223,COND(22,16,32),NOD(22,16,22)} RWALL( 579 1004249700 


»>CPM(22,16,32),HSZ(3,2),NHSZ( 22 516,32 ); RESORM( O93) 


ОО 100 К-2,МҚ 
КР2=К+2 
KP1=K+1 
KH1=K-1 
KH2=K-2 
DO 100 J=2,NJ 
JP2=ļJ+2 
JP1=J+1 


200 


00934800 
00454900 
00435000 
00435100 
00435200 
00435300 
00435400 
00435500 
00435600 
00455700 
00455800 


С «κκ 


C *** 


JM1zJ-1 
JM2-J-2 


cO 100 1-2,NI 


IP2=1+2 
IP1=I+1 
ІМІ=1-1 
IM2=I-2 


CENTRAL LENGTH OF THE SCALAR CONTROL VOLUME 


DXPl-XL(CIP1;J,K,0,0) 
OXI -XL(I ,./,К,0,0) 
DXM1zXLCIM1;,J,K,0,0) 


OYPI=YL(I,JP1,K,0,0) 
DYJ =YL(I,J »К,0,0) 
DYM1=YL(I,JM1,K,0,0) 


О2Р1:21(1,».КР1,0,0) 
DZK =210(1,Ј,К 0,0) 
02М1=21(1,Ј,КМ1,0,0) 


SURFACE LENGTH OF THE CONTROL VOLUME 


ОХМ=Х (І, ЈР1,К,0,2) 
DXS-XL(I;J 9K 052) 
DXF-XLCI,J,KP1,0,3) 
DXB-XL(i,J,K ;053) 


DYFZYL(I,J,KP1,0,3) 
DYB=YL(I,J,K 5,053) 
OYE=YL(IP1,J,K,0,1) 
ΟΥΜΞΥΙ (1 »45K 5,051) 


DZE-2ZLCIP1,J,K,0,1) 
DZM-ZL(I  ,J5,K,0,1) 
02н:21(1»29Р1,5К,0,2) 
025=21(1,Ј >»К,0,2) 


CENTRAL LENGTH OF 


DXEE-XLCIP2,J,K 5,051) 
Ожлк -Хх((ІР1,2/,К,0,1) 
DXN =xL(I  5,J5,K5051) 
DXFA-XLUOIM1,;J;,K,05,1) 


DYNN-YLCI,JP2,K,0,2) 
DYN =YL(I,JP1,K,0,2) 
DYS =YL(I,J ,К,0,2) 
CYSS=YL(1I,JM15,K5,0,2) 


OZFF=ZL(1,J,KP2,0,3) 
DZF =ZL(I,J,KP1,0,3) 
OZB =ZL(I,J5K 0,3) 
DZE8=ZL(1,J,KM1,0,3 3 


THE STAGGERED CONTROL VOLUME FOR T 


201 


00435900 
00430000 
00436100 
00436200 
00436300 
00436400 
00436500 
00436600 
00436700 
00456800 
00456900 
00457000 
00457100 
00457200 
00457500 
00457400 
00437500 
00437600 
00437700 
00437800 
00437900 
00438000 
00438100 
00458200 
00458500 
00458400 
00428500 
00438600 
00458700 
00458800 
00458900 
00439000 
00459100 
00459200 
00439300 
00439400 
00439500 
00439600 
00429700 
00459800 
00459900 
00460000 
00440100 
00440200 
00440300 
00440400 
00440500 
00440500 
00440700 
00440800 
00440900 
00441000 
00441100 
00441200 
00441300 


C 
С 


С 


& 
& 


& 
& 


& 


& 


100 


ΧΕ}: κ 


UBAR=0.5*(ULIP1,J>»K JULI ,J,K)) 
VBAR=0.5*(V(I,JP1»K J#V(I JK J) 
WBAR=0.5*(WI I,J »KPLI¢N(I,J,K)) 


DXY =DXI*DY J 
DYZ=DYJ*DZK 
DZxX=DZK*DXI 


SIG11(1,;J yK)=2.%VIS(I1,J,K1)%w((U(IP1,;J )K)-U(I, JK ))Z/DXI 
+VBAR*(DXN-DXS )/DXY 
+WBAR*( DXF -DXB }/DZX J 


SIG22(—-(I,J yK)z2.%VISt(I1,;JyK)*w—((V(I,JP1,K)-V(I;J yK ))/DYJ 
+WBAR*( DYF-DYB )/DYZ 
*UBAR*( DYE -DYH )/DXY ) 


SIG:32(1,J,K )22. *«VISU I JK XC OWI ,J;KP1)-HCI  J,K ))/DZK 
+UBAR*( DZE-DZW J/DZX 
+VBAR*(DZN-DZS )/DYZ ) 


CONTINUE 


DO 200 K=2,NKP1 


KP2=K+e 
KP1=K+1 
KH1=K-1 
KH2=K-2 


DO 200 J=2,NJP1 


JP2=J+2 
JP1=J+1 
JM1=J-1 
Jii2-J-2 


CO 200 Іг2,МІРІ 


ІР2=1+2 
IP1=I+1 
IH1=I-1 
IMesre2 


FOLLOWING DX, 


DY, 


VOLUME FOR 51612 


IF (J.EQ.2) GOTO 300 


DXN-XLUI;J 


5150) 


DXSzXLOI,JHM1;,K,1,0) 


DYE-YLUI 


»45K5250) 


DYH=YLCIML» J 9K 5290) 


DXI-XL(I 
DYJ-YL(I 


DYN-YL(I,;J 


»45K5152) 
»J4; 55251) 


,K 5150) 


DYS=YL(I,JM1,K,1,0) 


ОлЕ=Х (1 


»J»K 5250) 


Охи-хі (ІМІ1,.,Қ,2,0) 


02, 


ARE 


BASED ON THE LOCAL CONTROL 


2032 


00441400 
00441500 
00441600 
00441700 
00441800 
00441900 
00442000 
00442100 
00442200 
00442300 
00442400 
00442500 
00442600 
00442700 
00442800 
00442900 
00443000 
00443100 
00443200 
00443300 
00443400 
00443500 
00443600 
00443700 
00443800 
00443900 
00444000 
00444100 
00444200 
00444300 
00444400 
00444500 
00444600 
00444700 
00444800 
00444900 
00445000 
00445109 
00445200 
00445300 
00455400 
00445500 
00445600 
00445700 
00445800 
00445900 
00446000 
00446100 
00446200 
00446300 
00446400 
00446500 
00446600 
00446700 
00446800 


C жж 


C 


UBAR-SILIN(CUCLI,J,K ),UCt I JM, K JD YN, DYS ) 
VBAR-SILIN(t VC I;J,K ), VU IM1,;J,K ) ; DXE ; DXH) 


VIS12=BILIN(VIS(I ,J,K),VIS(I 5JM1,K),DYN,DYS, 

& VISCIM1,J,;K),VISCIM1, JMi,K),DYN,DYS, DXE,DXA) 
51612(1,Ј,К)= VIS12w((V(I,J)K )-V(IH1,J, K ))/DXI 
& -VBAR*(DYE-DYW J/( DXI*DYJ ) ) 
SIG12(—-(I,J,)K)=SIG12(I,)J,)K)+VIS12w%w((U(I,J,K)=-U(I,JH1,K))/DYJ 
& -UBAR*( DXN-DXS )/{ DXI*DYJ)) 


300 CONTINUE 


FOLLOWING DX, DY, DZ, ARE BASED ON THE LOCAL CONTROL 
VOLUME FOR SIG13 


DXF=XL(I;,J,K 51,0) 
DXB=xXL(I,J,KM1,1,0) 


DZE=ZLiI »45K5 3,0) 
DZH-ZLCLIM1,J;,K,3,0) 
DXI-XL(UI  ,J5K5153) 
DZK-ZL(I >-ЭК»5;:1) 


02Ғ-21(1,./5Қ 1,0) 
028-2111,.,КМ1,150) 
DXE-XLUI  ,J,K,3,0) 
DXH-XL(IM1,J;,K,3,0) 


IF (DZF.EQ.0.0.0R.DZB.EQ.0,0.0R.DZE.EQ.0.0.0R.DZH.EQ.0.0) 
& WRITE (65,*)} I,J,K, DZF,DZB,DZE,;DZH 
UBAR=SILIN(U(I,J,K),U(CI,J,KM1),D02F ,0ZB) 
KH3AR-SILIN((HUI;,J,K ) WC IM1,J,K ),DXE,DXH) 

VIS13-zBILINI( VIS(I 


»ЭКЫУІ5(І  ,J,KM1),D2F,;DZB,; 


& VISCIM1,;J,K ),VISCUIM1,J,KM1),DZF ,DZBE, DXE,DXMW) 
SIG12(I,J,K)z VISl2x( CHCI, JK ) -ACITHI, J,K ) )/DXI 
& -HBAR*(DZE -DZH )/CDXI*DZK )) 
SIG13(I,J,K)-SIG13(I;,J,K )*VIS13x( (UC 2 , J,K )-UCI  J, KM1) )/DZK 
& -UBAR*( DF -DXB )/( DXI*DZK )) 
C κκ FOLLORING DX, DY, DZ, ARE BASED ON THE LOCAL CONTROL 


С 


VOLUME FOR SIG?3 


OZN=ZL(I,J ,К,5,0) 
025=2111,ЈМІ,К,5,0) 
DY*zYLUI,J,K »e ;0) 
τ, καὶ 5.0) 
DZK-ZL(I;J.K,3,2) 
DYJ=YL(I,J5K 52,3) 


DYN=YL(I,J ;K 53,0) 
DYS=YL(I,JM1,K,3,0) 
DZF-ZL(I(I,J,K 5,250) 
02Р-21(1,.),КМ1,2,0) 


203 


00446900 
00447000 
00447100 
00447200 
00447300 
00447400 
00447500 
00247600 
00447700 
00447800 
00447900 
00648000 
00448100 
00448200 
00448300 
00448400 
00448500 
00448600 
00448700 
00448800 
00448900 
00449000 
00949100 
00459200 
00449300 
00449400 
00449500 
00449600 
00449700 
00449800 
00449900 
00450000 
00450100 
00450200 
06450300 
00450400 
00450500 
00450600 
00450700 
00450800 
00450900 
00451000 
00551100 
00451200 
00451200 
00451400 
00451500 
00451600 
00451700 
00451800 
00451900 
00452000 
00452100 
00452200 
00452500 


ο ο 


& 


& 


& 


WBAR=SILIN(W(I,J,K J WOI,JM1,K ),DYN,DYS) 
VBAR=SILIN(V(I,)J,K) y V(I,)J )KH1),DZF ; DZB) 


VIS23=BILIN(VIS(I »J.5K ), VISLI,JM1I,K ),OYN,DYS, 
VIS(I,J,KM1),VIS(I,JM1,KM1),0YN,DYS, 02Ғ,02В) 


51625(1,Ј,К)= VIS23%w((V(I1,J,K)3—-V(I,J,KH1))ZDZK 
-VBAR*( DYF-DYBJ/(DZK*DYJ)) 

SIC23(1,;J,K )-SIG23( 1, JK )J*VIS23*( CWCI  J,K O-HCI  JM1,K 2) )/DYJ 
-HBAR*tDZN-DZS )/tDZK*0YJ)) 


200 CONTINUE 


998 
110 


3x 3* 


333 


00 110 І=1,МІРІ 
DO 110 J=1,NJP1 
WRITE (6,998) I1,J,SIG11( I1,J, 5), SIC12(I1,J,5), S1613(1,J,5), 


SIG22(15J45,5),SI1G23(I1,J,5),SIG33(1,J,5) 
FORMAT (2X,16,1X,I4,6( 1X; E11.4)) 
CONTINUE 
RETURN 
END 


SUBROUTINE CALQ(LL) 


00452400 
00452500 
00452600 
00452700 
00452800 
00452900 
00453000 
00455100 
00455200 
00453300 
00453400 
00453500 
00453600 
00453700 
00455800 
00455900 
00454000 
00454100 
00454200 
00454300 
00454400 
00454500 
00454600 
00454700 
00454800 


Ge‏ ڪڪ 
KH HK HAA HHA KH HHH HH HHH HEHE HHH HEHEHE HE HIE HIME HITE EH HEH ЭЄ ЭЕ ЭЄ УЕ IE HEHE TE HE EE EE E EEE IH € € X 004 54 900‏ 


00455000 


E C JEJE 3€ 9€ € € 9€ 9€ 9€ € € € € HEE HEHEHE HE € € € 0€ 9€ 9€ € € 3€ 3€ ЭЄЭЄЭЄ HEE HK E E E E E E E EK E EE 3 E3 3 3€ 3 5 3¢ 32# O 0 4 5 5 10 O 


& 
& 


& 


CCMHON/BL1/DX,0Y ,DZ, VOL,DTIME , VOLOT , THOT , TCOOL ,P1,Q,QR 
COMMON/BL7/NI,;,NIPl1,NIMI1,NJ,NJPl,NJMl,NK,NKPI1,NKHMI 
COMMON/EL12/ NWRITE,NTAPE,NTMAXO ;NTREAL,TIME SORSUM,ITER 


00455200 
00455210 
00455300 


COMMCN/BL14/HCOEF »TINF ,CNT ,ABTURB »,BTURB,VISL > VISMAX QCORRT ,PM1,PM200455400 
COMMON/BL16/ CONST1,CONST2 ,CONST3 ,CONST4 ,CONSTo »NT ,U0 5H ,UGRT ,BUOY ,00455500 
& CPO,PRT ,CONDO,VISO,RHOO,HR,TR»TA,OTEMP,TWRITE ,TTAPE ,TMAX,GC ,RAIROOGS5600 


COMMON/BLSS¢/ HEIGHT(22,16,32),REQ(22,16,32), 
SMP(22,10,32),SMPP(22,16,32 J, PP( 225165352 )» 
00/522,16,52),0У(22,16.,52),0/М4(22,16,52) 


00455700 
00455800 
00455900 


COMMON/BL27/ VIS(22,16,32 ),COND( 22 ,16,32),N00(22,16,32 ) ,RNALL( 579 )00455910 


»>CPM(22,16,32)},HSZ2(3,2),NHSZ122,10,323,RESORMI 93 ) 
COMMON/BL39/ALEH ,PCURVE ; CONSRA ;FCURI41 ;PSOUTH ; GCORR ,PERROR 


C **x* IN MANY OF THE FOLLOWING LINES A TEMPORARY CORRECTION FOR 


C 


x 


ADJUSTINS QQ TO AGREE WITH THE PRESSURE HAS BEEN APPLIED. 
ATIMESTINExH/U0 


VOLT=0.0 

DO 113 I=2,NI 

DO 113 J-2,NJ 

DO 113 K-16,17 

IF (NHSZ(1,J,K).EQ.0} GOTO 113 
DXI =XL(I  ,J,K,0,0) 

0YJ =YL(I,J ,Қ,0,0) 

DZK 221(1,.Қ >0,0) 
VOL=DXI*XOYJ*DZK*H*H*H 


204 


00455920 
00456000 
00456100 
00456200 
00456300 
00456400 
00456500 
00456510 
00456520 
00456520 
00456540 
00456550 
00456560 
00456570 
00456580 
00456590 
00456591 


VOLT=VOLT+VOL 00956592 

113 CONTINUE 00456593 
00456594 

QRVOL=0. 00456595 

ОО 70 1=561,579 00456596 
QRVOL=QRVOL+RHALL(I)w1./12.%w0.2%*PI 00456597 

70 CONTINUE 00456598 
С 00456599 
QR-QRVOL/VOLT*UOXCPOXxRHOOxTA/ZH 00456600 
00456700 

IF (XTIME.LT.23.1 1 THEN 00456800 
PCURVEz9.789522bE -5b*xXTIME**2-2.35885310E-6xXTIME*x3« 00450900 

& REQ(10,9,16) 00457000 
ОРОТ -9.789522Е-5%ХТІМЕ%2-2.388510Е-6%ХТІМЕжж2%3 00457100 

ELSE 00457200 
PCURVEz0.0052*.81268E-3*XTIME-.22606E -5xXTIMEXx2*,27262E-8*XTIME*x00457300 

& $-.115621E-11x*XTIME**G *REQ(10,9,16) 00457400 
DPDT-.81266E-5-.220068E-5XXTIMEXx2*.27262E-8XXTIMEx* 00457500 

& 2*35,0-.115621bE-11x*XTIMEs*3x*64 00457600 
ENOIF 00457700 

tet Cl EQ. lI) THEN 00457710 
QQ=1.0E&*OPDT 00457800 
Q=CO*5 .4134/60./60. 00457900 

65 CCHTINUE 00458000 
Q@=QxCCORRT-QR 00458100 
00458200 

ELSE 00458300 

C THIS USES A CURVE FIT THROUGH THE BURNRATE DATA GIVEN BY NRL 00458400 
CCCRRT=0.0 00458410 
QCORR-0.0 00658420 
LIEST = 0 00458500 
BURHR1- 5.4576748 *0.18815360x*XTIME-.201535996E -OSXXTIME*x?2 00458600 
BURNRZ= -1.3116787 + .55158595%ХТІМЕ-.75092952Е-035%ХТІМЕжже2 00458706 

& +.50945510E -O6%XTIME x3 00458800 
БЕК ТТЕ |. 100). THEN 00458900 
BURNR= BURNR2 + 1.5117-.013117*XTIME 00459000 

ELSE 00459100 
BURNR = BURNR2 00459200 

ENDIF 00459300 
IF(XTIME .LE. 500) GO TO 60 00459400 
IF(BURNR2 .LT. BURNR1) THEN 00459500 
SURNR = (ВОКНАІ + BURNR2) 7 2 00459600 

GO TO 60 00459700 

ELSE 00459800 

iF ( XTIME .LT. 600.0) GO TO 60 00459900 

IT TITIES ЕЧ: ОТНЕМ 00460C00 

BURNR3 - BURNR2 00460100 

ITEST 1 00460200 

EHDIF 00460300 

BURNR = BURNR3 00460400 

ENDIF 00460500 

60 Q - BURNR*2.2046*9612./3600.-QR 00460600 
сс THIS GIVES 06 ІМ БТУ/5ЕС 00460700 
00400800 

ENDIF 00460900 


205 


Q-59.2135«0.7195x*XTIME-0.1139E-2X*XTIMEx*2-0.52307E-b*XTIME*XS 00460910 


Q=Q*3412/3600 00460920 
RETURN 00461000 

END 00461100 
00461200 

00461300 

00461400 

С 00461500 
жж. HEHEHE HEIL IE I HEME IE AE IESE BE ME FE EIER HEHE HK E E E E E E E E E EE E E E E E EE E E EE E E EEE 3E E EE 3E CK 3 E 3¢ 3E 3¢ 3¢ ¥ O С) 4 6 1 6 OO 
SUSROUTINE RACHT(TGWALL »VFMXC ) 00461700 

NXXX HEISE IE IE IE IE IESE E E E E DE JE JE FE SE E PE E E E E E E E E E E EEE E Y XXX XXX XX XXX XX X X XXX E C E333 3333- 004.6 18.00 
COMMON/BL7/NI ;NIP1;NIM1,NJ;,NJP1,NJMl,NK,NKP1,NKM1l 00461900 


8 . ;jNIP2,NJP2,NKP2,NA;,NAP1,NAM1,;NB;NBPl,NBMl;,KRUN;NCHIP;NJRA,NHRP 00462000 
COMMON/BL16/ CONST1,CONST2,CONST3 CONST , CONST 6, NT UO H ,UGRT ,BUOY ,00462100 
& CPO,PRT,CONDO,VISO,RHOO,HR,TR»,TA,DTEMP,TWRITE ,TTAPE , TMAX,GC ;RAIROO462200 


COMMON/BL32/ Th22516532),R06 2216532 )yPl 22 516532 } 00462300 

& CC 22510532 ),U( 225,16, 32 ) , V( 22,165 32) ,H( 22516532) 00402400 
COMMON/BL37/ VIS(22,10,32),COND(22,10,32),NOD(22,16,32 } ,RWALL( 579 )00462500 

& | CPH(22 16,32),HS2(3,2)yNHSZ( 22,16,32 ),RESORHI 93 ) 00462600 
COMMON/BL39/ALEH , PCURVE ; CONSRA »>PCURM1 , PSOUTH » QCORR , PERROR 00462700 
00462800 

00462900 

DIMENSION VFMXC(579,579),TGWALL( 579) 00462000 

DO 4010 K=3,NKM1 00463100 

DO 4010 I=2>NI 00463200 
IT=(K-3 be(NI-1)¢4¢I-1 00463300 

ТАКА (ІІ )=СОМЅРАЖТ(ЕІ,МЈВА ,К )жТт(І,МЈВА,К )жТ(І,МЈКА ,К )жТ(І,МЈКА,К ) 00%63600 

4010 CONTINUE 00463500 
00403600 

C RADIATION FROM ΤΗΕ FIRE TO THE WALL 00463700 
00463800 

CO 4911 J=3,9 00463900 
JJ=561+9-J 00464000 
AVTz0.25*(TC16,J,16)*TC 37,2, 160*3T(6 16,2517 )*TC17, 5 17 )) 00464100 
TGWALLE JJ JECONSRAXAVT XAVTXAVT XAVT 00464200 

4011 CONTINUE 00464200 
C 00464400 
DO 4012 J=3,14¢ 00464500 
JJ=568+J-3 00464600 
AVT-z0.25*(T(L6,J,16)*TC7,J516)*T6L 6,25,17)*TU75, J517)) 00464700 
TaGNHALLUJJ)ZCONSRAXAVTX*AVTXAVTX*AVT 00404800 

4012 CONTINUE 00464 900 
С 00465000 
DO 4020 I=1,579 00465100 
RHALL(CI)Zz0.0 00465200 

DO 4020 J=1,579 00465300 
RWALL(I JERWALLOI J)4+VEMMCOEI J J*TGWALLI J ) 00465400 

4020 CONTINUE 00465500 
RETURN 00465600 

END 00465700 
00465800 

00465900 

00466000 

C 00466100 


HE EE HE FEN 3€ 3€ E E CE E E E I HE E E HEHE IE IE € € 9€ 3€ 3€ € 9€ 3€ & 9€ 3€ € 93€ € E € € € 9€ 3€ 39XX 9€ E E EE 3€ € 3€ 9€ €3€ 9€39|À)DOYXOO3- 004 6 6 200 
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SUBROUTINE GLOBE 00466300 
3€ HEI FE HE HEH E EC E E € 9€ 9€ € C € 9e 9€ JC e 3€ 9€ € 0€ IE HE HE E E Κ 3€ EK HEH IE HK He C XE COE C E3 3€ 3 3¢ 3 3¢ 3e 3¢ ¥ ¥ O O4 6 b64 O O 
THIS SUBROUTINE CALCULATES THE GLOBAL PRESSURE CORRECTION; *00466500 
WHEREBY THE PRESSURE MATRIX IS UPDATED. *00466600 
VARIABLES USED ARE: ¥004 66 700 
SUMT = SUM OF TEMPERATURES x00466800 
SUMPT z SUM CF PRESSURE OVER TEMPERATURE *00400900 
SUMPET = SUM OF EQUILIBRIUM PRESSURE OVER TEMP*00467000 
UGRT = CONSTANT *00467100 
PCORR = PRESSURE CORRECTION *00467200 


E EEE E E E 9€ 3c 93€ 9€ 9€ 3€ 3€ € 3€ 9€ 9€ € HE EE E E 9€ 9€ 3€ HIE KE EKE HEE HEHEHE HH HIE IH HEH HIE HHH HHH HII 3 зе 3E 3¢ 3E 3¢ ¥ O OQ 6 7 30 O 


С 


570 


371 


33€ 


& 


& 


& 


& 
& 


& 


COMMON/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1l 


00467400 


ӘМІР2г,МӘР2,МКР2,МА»МАР1І»МАМ1,МВ8,МВР1,МӘМІ,ККОМ,МСНІР,МУКА,ММЕР 00967500 
COMHMON/BL16/ CONST1,CONST2,CONST3,CONSTG ,CONST6 ,NT »,U0,H,UGRT ,BUOY ,00467600 
CPO,PRT,CONDO,VISO,RHOO;HR,TR,TA,DTEMP THRITE,TTAPE, TMAX,GC ,RAIROO467700 


COMMON/BL32/ T(225,16,32),R( 22,16,32),P( 22,165,322) 


:C(225165,32),U( 225,16,32), V( 22,165 32 ),H( 22516, 32) 


COMMON/BL34/ HEIGHT(22,10,32 ),REQ(22,10,32), 
5МР(22,15,52),5МРР(22,16,52),РР(22,16,22), 
DUL225;16,32),DV( 22,16,32),DH( 22,16,232) 


00467800 
00467900 
00268000 
00468100 
00468200 


COMMON/BL37/ VIS(22,16,321,COND(22,16,32),NOD(22,16,32 ),RNALL( 579 100468300 


ЭСРМ(22,16,52),Н52(5,2),МН52(22,16,52),КЕ5ОКМ(92) 


SUMT=0. 
SUMPT=0. 
SUMFET=0. 

DO 370 I=2,NI 

DO 370 J=2,NJ 

СО 370 K=2,NK 

IF (NOD(I,J,K).EQ.1) GOTO 370 

DXI=XL(I,J,;K,0,0,0) 

DYJ=YL(I,J,K,0,0;0) 

D2ZKz2L.(I,J,K,0,0,0) 

VOL zDXI«*DYJ«*DZK 

SUMT-SUMT*1./TCI,J,K)*VOL 

SUMPT SUHMPT*PLI,J,K)/TEIS J,K I*VOL 
SUMPET-zSUHPET*REQ(I,J,K)*(1./1.0-1./TCI, JK ) )*VOL 
CONTINUE 

SUMPET -SUMPET/UGRT 

PCORR=( SUMPET-SUMPT )/SUMT 

FCORRH=PCORR 


DO 371 I=1,NIP1 

DO 371 J=1,ŅNJP1 

DO 371 K=1,NKP1 

PiIl,J,K )=P(I,J,K)+PCORRN 
CONTINUE 


RETURN 
END 
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00468400 
00468500 
00468600 
00468700 
00468800 
00468°00 
00465000 
00469100 
00469200 
00469300 
00469400 
00469500 
00469600 
00469700 
00469800 
00469900 
00470000 
00470100 
06470200 
00470200 
00470400 
00470500 
00470600 
00470700 
00470800 
00470900 
00471000 
00471100 
00471200 
00471500 
00471400 
00471500 
00471600 


эє эе HE IE FE IE HEE FETE Jk 3€ J 9€ 3€ HE FE HEHE JE 3€ 3€ JE JE 3€ 9€ PE MEJE 9€ € JE JE ME MEIE JEJE JE JEE E JE JE зе FÉ JE € E 9€ 9€ 9€ 9C € 3€ 3€ 9€ 3€ 3€3€-€ 33€ 00471 700 


& 


& 


& 


& 


405 
402 


E 


SUBROUTINE SOLCON 
κκ HII HII IE HIE COE E HK E E HEE ΑΟ τ 3€3€€ 004 7 1 900 
COHMON/BL7/NI ;jNIP1,NIM1,NJ,,NJPl,NJMl1,NK,NKP1,NKMl 

NIP2,NJP2,NKP2,NA,NAP1,NAMl1,NB,NBPl,NBHl,KRUN;,NCHIP,NJRA,NWRP 00472100 


COMMONH/BL12/ NWHRITE,;NTAPE ,NTMAXO ,NTREAL TIME ,SORSUM,ITER 


00471800 


00472000 


00472200 


COMMON/EL16/ CONST1,CONST2,CONST3,CONST4 , CONST o, NT UO, H,UGRT ,BUOY 00472300 
CFO,PRT,CONDO,VISO;RHOO;HR,TR,TA,DTEMP,TWRITE,TTAPE, TMAX,GC,RAIROO472400 


COMMON/BL22/ICHPB(10),NCHPI(10),JCHPB(10),NCHPJ( 10 ),KCHPB(10), 
NCHPK(10),TCHP(10),CPS(10),CONS(103,WFAN( 10) 


00472500 
00472600 


COMMON/BL37/ VIS(22,16,32),COND(22,16,321),NOD( 22,16,32),RWALL( 579 )00472700 


»>CPM(22,16,32),HSZ(3,2),NHSZ(22,16,32),RESORM( 93 ) 


DO 402 N= 


1,NCHIP 


IB=ICHPBIN) 
IE=IB+NCHPI(N)-1 
JB=JCHPBIN ) 
JE=JB+NCHPJ(N)-1 
KB=KCHPB(N) 
KE=KB+NCHPK(N)-1 


DO 405 I= 
DO 405 J= 
DO 405 Kz 
COND(I;J, 


IB,IE-1 
Jb ,JE-1 
КВ»КЕ-1 
K J=CCNDOXCONSI(N ) 


CPM(I,J,K J=CPS(N) 
NOD(I,J,K j=l 


IF (J.EQ. 
Ir (T.EQ. 
Ir TI.EQ. 
το τες. 
ΙΓ ΙΙ ΕΠ. 
T I EQ. 
TE IEG. 


92-5 264 36, 
Peet. EQ 
IF (I.EQ 

CONTINUE 

CONTINUE 
RETURN 

END 


NJ) COND(I,NJP1,K J=COND(I,NJ,K ) 

2) COND(1,J,K J=COND(2,J,K) 

NI} COND(NIP1,J,K )=COND(NI,J,K) 
2.AND.J.EQ.NJ) COND(1,J+1,K J=COND(2,J,K) 
N1.AHD.J.EQ.NJ) COND(NIP1,J*1,K )7COND(INI; J)K) 
NJ) CPM(I,NJP1,K I=CPM(I,NJ,K ) 

2) CPM(1,J,K )=CPM(2,J>,K) 


NI) CPH(NIP1,J yK ISTCPMINI, J yK) 
~c AND.J.EQ.NJ) CPMi1,J+1,K J=CPM(2,J>5K ) 
SHI.AND.J.EQ.NJ) CPM(NIP1,J4+1,K J=CPM(NI,J>K) 


00472800 
00472900 
00473000 
00473100 
00473200 
00473300 
00473400 
00473500 
00473600 
00473700 
00473800 
00473900 
00474000 
00474100 
00474200 
00474300 
00474400 
00474500 
00479600 
00474700 
00474800 
00474900 
00475000 
00475100 
00475200 
00475200 
00475400 
00475500 
00475600 
00475700 
00475800 
00475900 


KEK KH HPP HHH XK 3€ 9e 9€ 9€ € e 9€ 99 9€ 9€ 3€ 9€ 3c 9€ 3€ 9€ 9€ 3€ 9€ 9€ 9€ 9€ 3e 9€ € € € 9€ 9€ 9€ 9€ € 9€ 3€3C 3€ E EE E EE 9€ 9€ € € 3€ € 9€ € 3€ 9€ X 9€ € 3€ X 004 7 60 00 
SUBROUTINE PTRACK 
*3x*3* хх ж E E 3€ € € € € € 9€ € 9€ 9€ € € E € € 9683€ 9€ 3€ 9€ € 9€ E X € E € € E EE EE € € E € OX CE € 4 3 3¢ 5¢ € 3E 3 XY * 004.7 6 200 
COMMNON/BLIG/HCOEF ,jTINF,CNT,ABTURBP ,BTURB, VISL, VISMAX  GCORRT ,PH1,PM200476300 
COMMON/BL16/ CONHST1,CONST2,CONST3,CONST4 , CONST6 , NT UO ;H ,UGRT ,BUOY 00476400 

CPO,PRT,CONDO,VISO,RHOO,HR,TR,TA;DTEMP,THRITES; TTAPE,TMAX, GC,RAIROO476500 
COMMON/BL32/ Tt 225,16, 32 ),RtL 225165 22 ) ;P( 225165, 32) 


& 


& 


& 
& 


;C(22,16,22),Ut225,16,32 ), V( 225,16, 32 ),W( 22,16, 32) 


COMMON/BL34/7 HEIGHT(22,16,32),REQ(22,16,32), 
5МР( 22,16,32 ),5МРР( 22,16,32 ),РР(22,16,32 ), 
00 22,16,32 ),рм( 22,16,32 ),рм 22,16,32) 


COMMON/BL39/ALEW, PCURVE , CONSRA ,»PCURM1 , PSOUTH »QCORR »PERROR 
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00476100 


00476600 
00476700 
00476800 
00476900 
00477000 
00477100 
00477200 


CC ** THE FCLLONING PRESSURE TEST IS A TEMPORARY MEASURE TO MODIFY THE 


GE 


С жж 


^^ 
` 


С 
жжж 


KEK 


HEAT INPUT TO FORCE THE CALCULATED PRESSURE TO AGREE WITH THE 
EXPERIMENTAL PRESSURE. 
15 RECEIVED. 


PSCUTH=P(10,9,16 IXCONST1+REQ(10,9,16) 
PERROR=( PCURVE-PSOUTH )/PCURVE 
QCORR-1.0*PERROR-(PSOUTH -PM1 )/PCURVE 


IT WILL BE USED UNTIL ACCURATE HEAT INPUT 


0C4 77300 
00577400 
00477500 
009770600 
00477700 
00477800 
00977900 
00478000 


QCORR=1.0+PERROR-{ PSOUTH-PM1 J)/PCURVE +{ PSOUTH-PM1 )/{ PCURVE -PCURM1 )*00478100 


& ( PCURVE -PH1)/PCURVE 
QCORRT - QCORRT*QCORR 
PCURM1=PCURVE 
PM1=PSOUTH 


RETURN 
END 


SUBRCUTINz: TCP 


00678200 
00478300 
00478400 
00478500 
00478600 
00478700 
00478800 
00478900 
00479000 
00479100 
00479200 


3€ 3 3€ 3€ 3e 3-3 3€ EK XK 39€ 9€ CC C C3 E E HE E EKE EE E E E E E E XK E KE E EK E E E E E E E EEK HEHEHE HEHE HEHE HEHE HEH 3€ 3€ 3e3 3 3 3 ¥ O OG 7 93 OO 


00479400 


FE HEF IIE HE HE EK E IE E E EEE IESE FE IE IE IE IE € € 9€ 9€ E EE E E EE EE HE IEEE IE IE FETE FE HE IEE ETE FE FE FE EXC CC €33XE 3€3€-XX 0 06.7 950 0 


00479600 


HE IE HEHE HE F E E HE HIE EE HE IEE FE IE IE IEEE HEE HEE HE IEE EE OCC CC OC 9€ HEE IIE HE E E IEEE CE HEHEHE FETE IE FE IE IE HE IEE IE EH IHEHIENHED OG 79700 


* 
* 


THIS SUBROUTINE CALCULATES THE TEMPERATURE AT THE TERMOCOUPLE 
PCSITIONS. 


x00479800 
ж00479900 


3 3€ € 3€ € X X 3€ 3€ 9€ E 9€ € 2€ E CC EC C C € 9€ E CC 9€ C 9€ 9€ 2€ эе X 3€ € C C COE 9E C E EKE E € € € CE € E EC 9€ 9€ 93 3-3€ 3€9E99O€ O O6 800 00 


5101 


5100 


COMIION/RG/XC(t93 ),YCt 93) ,2C( 93) , 3093 ),Y8(193 ), 25193), 


& DXXC(93),DYYC( 93 ),DZZCt 935 ),DXXSt 93 ),DYYSt 923) ,DZ23(93) 


00480100 
00480200 


COMMON/BL16/ CONST1,CONST2 ,CONSTS ,CONST4 ,CONST6 »NT ;UO,H,UGRT ,BUOY ,00480300 
& CPO,PRT ,CONDO,VISO,RHOO,KR»TR»TA,DTEMP, TWRITE > TTAPE » TMAX,GC ,КАІК00480400 


COMMCN/BL32/ T(t225,16,Z22),R(t 225165, 32 ),Pt 22516532) 
& :€(22516,22),Ut22,16,32), Vt 22510, 22 ),H1 225,16, 32) 
COMMON/BLZ8/NTHCO,;CX(t12),CY(12),CZ( 12 );NTHt 12, 3 ), TCOUF( 12) 


DO 5100 N=1,NTHCO 

ІІ-МТН(М,1) 

JJ=ENTHIN,2) 

KKzNTHUN,3) 

VOL=A8SS((XCCII 41 )-%CCII) )9*(OYC( JJ*1)-YCCt JJ) V*( ZCCKK*1) -ZCCKK ) )) 
TCOUP(N)-0. 

CO 5101 I=II,II+tl 

III=II+II+1-I 

DO 5101 J2JJ,JJ*1 

JJJ-JJ*JJ*1-J 

DO 51Cl K*KK.,KK*1 

KKK=KK+KK +1-K 
HVOL#=ABSt((XC(I)-CX(N))w(YC(JjJ)-CY(N))w(ZC(K )-CZ(N)))ZVOL 
TCOUP(N)STCOUP(N)*HVOLX*TLIII;JJJ;,KKK) 

CONTINUE 

TCOUP(N)JSTCOUP(N)X*TR-273.18 


CONTINUE 
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00480500 
00480600 
00480700 
00420800 
00480900 
00481000 
00482100 
00481200 
00451200 
00481400 
00481500 
00481600 
00481700 
00481800 
00481900 
00422000 
00452100 
00482200 
00482500 
00482400 
00482500 
00482600 
00482700 


3.363 


ΧΧΧ 


50C FORHAT(I1X, 


RETURN 
END 


00482800 
00482900 
00483000 
00483100 
00482200 
00483300 
00483400 


OCC IE FEE IE EIERE E GE Se SEE FE SESE KEE EEE HE IEE EEIE AE IEEE FE SE FE IE IE FE EEE IEE € 3€ 33 3¥ 3% Û O4 8 35 Û Û‏ عو جوج چو چو جو چو ې 


& 


& 


& 
& 


& 
& 


& 


& 
& 
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SUBROUTINE OUT(NN ) 


00483600 


E JE JE JE E JE JE E E E JE E E E E C JE XK E E EK EK E E IEE JE E JEJE JEJE JEJE E E E E E EE E EE E EE E E JEK EEE EE (9X € € X400 48 27 00 


COMMON/BL1/DX,DY,DZ,VOL,DTIME ; VOLDT, THOT ; TCOOL, PI,Q,QR 
COMMON/BL7/NI ;NIP1,NIMl,NJ,NJP1,NJMl,NK;NKP1,NKM1l 


00483800 
00483900 


jNIP2,NJP2,NKP2,NA,NAP1,NAM1;,NB,NBPl1,NBMl,KRUN,NCHIP,NJRA,NWHRP 00484000 


COMMON/BL12/ NWRITE »NTAPE ,NTMAXO »NTREAL , TIME ,SORSUM,ITER 


00484100 


COMMON/BL14¢/HCOEF ; TINF;CNT ;ABTURB,BTURB, VISL , VISMAX »,QCORRT » PM1 »PM200484200 
COMMON/BL16/ CONST1,CONST2,CONST3,CONST4 ,CONST 6 ,NT UO, H,UGRT ,BUOY ‚00484300 
& CPO,PRT,CONDO,VISO,RHOO,HR, TR, TA,DTEMP,THRITE,TTAPE ; TMAX, GC ;RAIROOS484400 


COMMON/BL32/ T(225,165,32),R( 22,165,352) ,P( 22,165, 32) 
:€(225,16,32),U( 22,16, 32), V( 225,16, 32) ,H( 22,16, 322) 
COMMON/BL24/ HEIGHT(22,16,232 ),REQ( 22,165,232); 
DU(22,16,32),DV( 22,16, 32) ,D&AC 225,16, 32) 


COMMON/BL36o/AP(22,16,22),AE( 22516, 32) ,AH( 22,16, 32 ), ANC22, 16, 32), 


A36 225105, 32), AF( 22516, 22), 4BC 22516532), 
SP(225,16,32), SUC 225,16, 22 ),RIQC 225,16, 32) 


00484500 
00484600 
00484700 
00489800 
00484900 
00484910 
00484920 
00484930 


COMMON/BL37/ VIS(22,16,2322),COND! 22,16, 32 ),NOD( 22,16, 352) ; RHALL( 579)006585000 


CPML22516,32 !,HS2( $,2 ),NHSZ( 225165, 32 ), RESORH( 92) 
COMMON/BL38/NTHCO ,CX(12),CY( 12 ), CZ( 12 ),NTHC 12, 3) , TCOUP( 12) 
COMMON/EL39/ALEW,PCURVE ; CONSRA,PCURHZ , PSOUTH , QCORR , PERROR 
XTIME-TIMExH/UO 
IF( NN .EQ. 1) THEN 


QRR=60.*60./3.412/1000.*QR 

WRITE( 6,500} XTIME »NTREAL, TIME ,ITER,RESORM( ITER ),SORSUM,QRR 
“ТІМЕс 5,Ғ7.5,“ 5,1Х»"МТКЕДІ2,19,1х, 
"ТІМЕг-",Ғ7.2,“<0>%,1Х, "ІТЕН- I2, 1X, 'SOURCE-' ,; 
F9.6,1X,'SORSUM-z',F9.6,1*,' QRIKH) 7 ',F10.9) 


QKW = ((60.*60. J/(3.412*1000. ) )J* Q 


PRINT * 
PRINT *, ' PCURVE SOUTH PERROR 
CRR QCORRT Q(KH) ' 


PRINT *, PCURVE ,PSOUTH,PERROR »,QCORR »QCORRT »QKW 
PRINT + 


BESe LEU NN ЕО ὁ 
PRINT % 

PRINT *,' "TEMPERATURES AT THERMOCOUPLE POSITION IN (C)' 
WRITE (6,%) ( TCOUP(N),N-1,NTHCO) 

PRINT ж 

PRINT ж 


) THEN 


ELSE 


DO 502 L-25,25 
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00685100 
00685200 
00485300 
00485400 
00485500 
00485600 
00485610 
00485700 
00485500 
00485900 
00486000 
00486100 
00486200 
00456500 


900986400 


00486500 
00486600 
00425700 
00480800 
00486900 
00487000 
00487100 
00487200 
00487300 
00487400 
00487500 
00487600 
00487700 
00487800 


O 


ооо о 


ος 
ος 


κξι 

CO 502 M-zi,NIPI 

І=М 

WRITE( 6,504) I,K 
50& FORMAT(/,2X,'Iz',I2,5X,'Kz',12,7/,10X,' T NOD',3X,'RIUGM/C.C.)',2X, 

& 'ULCM/SEC )' ,2X, VL CM/SEC)' 2X, 'H( CM/SEC)' ,'P (ATM)',5X,'SMP', 5X, 

& 'VISUSEC/CM-CH)' ,35X,'COND(LSEC/CM-CM)' ,' XSMP',/) 
513 DO 503 Jz1,NJP1 

XTEMP=T(I,J,K )/CONST32-273.16 

ΧΤΕΜΡΞΤ(Ι»ω»Κ) 

AR-RUI;J,K }XRHOO/2. 2048 *x1000.*(0.0328)**3 

AR-RUI;,J,K) 

AU-ULI;,J,K *CONST6 

AXVzVLI,J,K )wCONST6 

XHzhW(UI,J,K)xCONST6 

XPzUPLIS,J,K J*CONSTI*REQ(I,J,K )X*PINT) 

AP=P(I»J 5K) 

XU-ULI;J,K) 

XV=V(I,J>K) 

XW=W(I,;jJ,K+1) 

ХУІЅ:У15(1 ,Ј,К )%WRHO0*CP0%H%*U0*1.4%&85S1% 

XCONDZCOND(I,J,K )*RHOO«CPOXHXUO*1.48814 

AVIS=VIS(1I,J,K J/VISO 

ACCND=CCNOCIJ,K I/VISO 

XSMP=RI(I,JS>K) 

DOYY=1./FLOAT(NJM1-2 ) 

РЕ zSQRT(ULI,J,K )bx2«V(LI  J, K )9*x2*«WH( I,;J,K 10€2 )*DDYY/COND(IjJ,K) 

WRITE( 6,511 JJ »XTEMP »XR XU, XV AH XP ,SMPUL,J,K ) XVIS,XCOND ,XSMP 
511 FORMAT(U2X,'Jz2',15,2X,F6.3,2X,F6.3,2X ,F7.3,2X,F7.3, 3X ,F7.3,23X 

& ,F12.3,2X,F9.0,2X,F6.25,2X,F6.2,2X,F6.3) 
503 CONTINUE 
602 CONTINUE 

ENDIF 

RETURN 


ENC 
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00437900 
00488000 
00488100 
00488200 
00488500 
00488400 
00488500 
00488600 
00488700 
00488800 
00488900 
00489000 
00489100 
00489200 
00489300 
00489400 
00489500 
00489600 
00489700 
00489800 
00489900 
00490000 
00490100 
00490200 
00490300 
00490400 
00490500 
00490600 
00490700 
00490800 
00490900 
00491000 
00492100 
60491200 
00491500 


10. 


ως 
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